Recent Posts

Pages: 1 2 3 [4] 5 6 ... 10
31
AutoLISP (Vanilla / Visual) / Re: "ssget everything" for a single point?
« Last post by ribarm on April 24, 2024, 10:03:25 AM »
Maybe :
Code: [Select]
(sssetfirst nil (ssget "_C" pt pt))
32
AutoLISP (Vanilla / Visual) / "ssget everything" for a single point?
« Last post by Peter2 on April 24, 2024, 09:59:40 AM »
I have tons of hatches, usually as solid-hatch-pattern, and sometimes partially or totally overlapping.
I want to select the overlapping ones on a single point - like a needle which I stick on a bunch of paper sheets: all the sheets on this needle-picking-point are selected.

(An option would be to define a cross-poly or a cross-window with very small area, but maybe there is really a "needle-ssget"?)
33
AutoLISP (Vanilla / Visual) / Re: [request] Radiant Pipe Layout
« Last post by JohnK on April 24, 2024, 08:49:37 AM »
Oh, that's too bad. I guess I'll just have to chip away at the problem in my spare time then.

BTW, that's a "spiral"; not sure if I'm correct or not but I've always used a sort of "reverse return" layout to hopefully get a more even heat distribution on the panel (aka floor). So, given my luck, my pattern will be impossible to code. :]
34
XDRX-API / Re: [XDrX] 2024.04.23 Provide API compressed package version, no exe installation re
« Last post by xdcad on April 24, 2024, 06:36:04 AM »
Quote from: Hugo on April 24, 2024, 03:15:16 AM
a thank you from me too
great job you're doing there

thanks, If test found problem,plz tell me

@domenicomaria
35
XDRX-API / Re: [XDrX] 2024.04.23 Provide API compressed package version, no exe installation re
« Last post by Hugo on April 24, 2024, 03:15:16 AM »
a thank you from me too
great job you're doing there
36
AutoLISP (Vanilla / Visual) / Re: Ssget filter for mirrored multileader
« Last post by Jeff_M on April 23, 2024, 08:32:11 PM »
It should be noted that Mleaders which use a block instead of Mtext do not have the DXF 13 code.
37
AutoLISP (Vanilla / Visual) / Re: Lisp to Create multiple viewport
« Last post by BIGAL on April 23, 2024, 07:26:39 PM »
Do you want make viewports at scale to match a title block in Layouts like in this image the red rectangs have been made matching a MVIEW at scale. This is a slect P/Line and walk along or by placing rectangs, Rotation is supported by twisting view in layout.

38
AutoLISP (Vanilla / Visual) / Re: factorial of decimal number...
« Last post by kirby on April 23, 2024, 06:42:21 PM »
Fun end of day mental exercise...

Test function matches Excel to 5 decimal places (vs. built in functions GAMMALN & GAMMA, decimal factorial computed from X*Gamma(X))
and in range of 0.1 to 10.0 in 0.1 increments
(but maybe Excel is wrong too...)

Code - Auto/Visual Lisp: [Select]
  1. (defun C:TestGamma ( / CNT MyVal LG G DF)
  2. ; Test function for 'LnGamma', 'Gamma', and 'DecimalFact'
  3. ; KJM - April 2024
  4. ; Uses custom functions
  5. ;       lngamma
  6. ;       gamma
  7. ;       decimalfact
  8.  
  9. (setq OutList nil)
  10.  
  11. (prompt "\nValue  LnGamma  Gamma  DecFact")
  13.  
  14. ; Test from 0.1 to 10.0
  15. (setq CNT 1)
  16. (repeat 100
  17.         (setq MyVal (/ (float CNT) 10.0))
  18.  
  19.         (setq LG (lngamma MyVal))
  20.         (setq G (gamma MyVal))
  21.         (setq DF (DecimalFact MyVal))
  22.  
  23.         ; Report
  24.         (prompt "\n")(princ (rtos MyVal 2 3))
  25.         (prompt "  ")(princ (rtos LG 2 5))
  26.         (prompt "  ")(princ (rtos G 2 5))
  27.         (prompt "  ")(princ (rtos DF 2 5))
  28.  
  29.         (setq OutList (cons (list MyVal LG G DF) OutList))
  30.  
  31.         (setq CNT (1+ CNT))
  32. ) ; close repeat
  33.  
  34. (prompt "\nCompleted!")
  36. )
  37.  
  38.  
  39.  
  40. (defun DecimalFact ( X /
  41.                 OutVal tol
  42.                 )
  43. ; Decimal factorial function x! = x*gamma(x)
  44. ; KJM - April 2024
  45. ; Input
  46. ;       X - (positive real)
  47. ; Returns
  48. ;       Natural logarithm of gamma function
  49. ; Uses custom functions:
  50. ;       Gamma
  51.  
  52. (setq OutVal nil)
  53.  
  54. (setq tol 1e-6)
  55.  
  56. (if (> X tol)   ; Must by positive
  57.         (setq OutVal (* X (gamma X)))
  58. ) ; close if
  59.  
  60. OutVal
  61. )
  62.  
  63.  
  64. (defun Gamma ( X /
  65.                 OutVal tol
  66.                 )
  67. ; Gamma function
  68. ; KJM - April 2024
  69. ; Input
  70. ;       X - (positive real)
  71. ; Returns
  72. ;       gamma function of X
  73. ; Uses custom functions:
  74. ;       LnGamma
  75.  
  76. (setq OutVal nil)
  77.  
  78. (setq tol 1e-6)
  79.  
  80. (if (> X tol)   ; Must by positive
  81.         (setq OutVal (exp (lngamma X)))
  82. ) ; close if
  83.  
  84. OutVal
  85. )
  86.  
  87.  
  88. (defun LnGamma ( X /
  89.         OutVal tol Coeff B A CNT
  90.         )
  91. ; Natural Log of Gamma function by Lanczos approximation
  92. ; KJM - April 2024
  93. ; Input
  94. ;       X - (positive real)
  95. ; Returns
  96. ;       Natural logarithm of gamma function of X
  97. ; Uses custom functions:
  98. ;       none!
  99.  
  100. ; See:
  101. ;       https://en.wikipedia.org/wiki/Lanczos_approximation
  102.  
  103.  
  104. (setq OutVal nil)
  105.  
  106. (setq tol 1e-6)
  107.  
  108. (if (> X tol)   ; Must by positive
  109.   (progn
  110.  
  111.         (setq Coeff (list       ; list of 7 coefficients
  112.                   1.000000000190015
  113.                  76.180091729471463
  114.                 -86.505320329416768
  115.                  24.014098240830910
  116.                  -1.231739572450155
  117.                   0.001208650973866
  118.                  -0.000005395239385
  119.         )) ; close setq list
  120.        
  121.         (if (< X 0.5)
  122.           (progn
  123.                 ; Reflection formula for small X
  124.                 (setq OutVal (-
  125.                         (log (/ pi (sin (* X pi))))
  126.                         (LnGamma (- 1.0 X))
  127.                 ))
  128.           )
  129.           (progn
  130.                 (setq X (- X 1.0))
  131.                 (setq B (+ X 5.5))
  132.                 (setq A (nth 0 Coeff))
  133.                
  134.                 (setq CNT 1)
  135.                 (repeat (1- (length Coeff))
  136.                         (setq A (+ A (/ (nth CNT Coeff) (+ X (float CNT)))))
  137.                         (setq CNT (1+ CNT))
  138.                 ) ; close repeat
  139.                
  140.                 (setq OutVal (+
  141.                         (log (sqrt (* 2.0 pi)))
  142.                         (log A)
  143.                         (* -1.0 B)
  144.                         (* (log B) (+ X 0.5))
  145.                 ))
  146.           )
  147.         ) ; close if   
  148.   )
  149. ) ; close if
  150. OutVal
  151. )
  152.  
39
AutoLISP (Vanilla / Visual) / Re: Ssget filter for mirrored multileader
« Last post by ronjonp on April 23, 2024, 05:29:43 PM »
Quote from: dexus on April 22, 2024, 02:31:46 AM
Quote from: ronjonp on April 20, 2024, 03:41:02 PM
This works for me on your sample drawing.
Code - Auto/Visual Lisp: [Select]
  1. (sssetfirst nil (ssget "_X" '((0 . "MULTILEADER") (13 -1.0 0.0 0.0))))
Thanks ronjonp! This does work on my version of AutoCAD.
...
Cheers!  :-)
40
AutoLISP (Vanilla / Visual) / Re: [request] Radiant Pipe Layout
« Last post by ribarm on April 23, 2024, 03:26:51 PM »
@BIGAL states that there are plenty links on www just by google-ing, but AFAIK I have only this link where I was involved...
https://www.cadtutor.net/forum/files/file/47-floor-heating/

HTH.
M.R.

BTW. It is very delicate to code for it, but we tried - I mean me and L.M. (Lee Mac)...
Pages: 1 2 3 [4] 5 6 ... 10