获取长度并创建

pBe · 发表于 2022-7-6 03:20:34

据我所知，演示lisp将为您提供正确的长度。

麻烦？以什么方式CafeJr？是否一次性选择所有实体？我们可以修改代码，以识别哪些行放在哪里，如果您希望这样做的话。

干得好：


(Defun c:demo (/ pt ent len sp ep pt1)
 (if (setq pt nil
    ss (ssget '((0 . "CIRCLE,ARC,*LINE")))
     )
   (repeat (setq i (sslength ss))
     (setq ent        (ssname ss (Setq i (1- i)))
    len        (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))
    sp        (Vlax-curve-getstartpoint ent)
    ep        (Vlax-curve-getendpoint ent)
     )
     (if (null pt)
(setq pt (getpoint "\nPick start point:"))
     )
     (entmakex
(list (cons 0 "LINE")
      (cons 10
            (setq pt1 (list (min (Car sp) (car ep)) (cadr pt)))
      )
      (cons 11 (polar pt1 (* pi 1.5) len))
)
     )
   )
 )
 (princ)
)

CafeJr · 发表于 2022-7-6 03:24:04

pBe，我现在不能尝试。。。明天我会做的。。。所以，问题是原始多段线的长度与创建的线不同，正如我在这里展示的第二个文件！。。。我不知道为什么会这样，所以，线条的长度与普林斯不匹配。。。

jdiala · 发表于 2022-7-6 03:27:19

只要实体不重叠并水平排列，这将起作用。

copy

(defun C:test (/ ss p l i d v)
(setq ss (ssget "_:L" '((0 . "CIRCLE,ARC,*OLYLINE")))
     p  (getpoint "\nPick a point")
     d  (getdist p "\nDistance between lines ; ")
) 
(foreach x
 (vl-sort
   (repeat (setq i (sslength ss))
       (setq i (1- i)
             l (cons (ssname ss i) l)
       )
   )
   (function 
     (lambda (x1 x2) 
       (< 
         (car 
           (cdr 
             (assoc 10 
               (entget x1)
             )
           )
         )
         (car 
           (cdr 
             (assoc 10 
               (entget x2)
             )
           )
         )
       )
     )
   )
 )
(setq v (vlax-ename->vla-object x)
       l (cond
           ((vlax-property-available-p v 'length) (vla-get-length v))
           ((vlax-property-available-p v 'circumference) (vla-get-circumference v))
           ((vlax-property-available-p v 'arclength) (vla-get-arclength v))
         )
 )
 (entmake 
   (list 
     (cons 0  "LINE")
     (cons 10 p)
     (cons 11 (polar p (* pi 1.5) l))
   )  
 )
 (setq p (polar p 0 d))
)
(princ)
)
(vl-load-com)