更改块引用的LISP

jmsimpson · 发表于 2022-7-6 09:24:52

我已经将1000多个块参照点导入AutoCAD。我想把这些块参考“十字准线”转换成圆圈。我希望这些圆的直径与数据集中的高程数相对应。如果你想知道我为什么想要这个，我正在试着在一个绘图中绘制一张树的地图，直径是我想要为每棵树显示的关键信息之一。以PENZD样式输入数据限制了显示的信息量，因为我只需要2D地图，所以高程表示直径。

我有一个将点转换为圆的lisp代码，但我还没有找到将块参照数据转换为圆的方法。如果有人能写下这段代码或指导我如何实现这一点，我将不胜感激。谢谢

vnanhvu · 发表于 2022-7-6 09:30:07

你可以用我的Lisp程序进行测试

copy

(defun c:GGG ()  (defun mid (ent / p1 p2)    (vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)    (setq p1 (vlax-safearray->list p1)          p2 (vlax-safearray->list p2)          pt (mapcar '+ p1 p2)          pt (mapcar '* pt '(0.5 0.5 0.5))    )    pt  )  (setq src (car (entsel "\nDoi tuong can di chuyen: ")))  (redraw src 3)  (setq des (car (entsel "\nDoi tuong dich: ")))  (redraw src 4)  (setq oldos (getvar "osmode"))  (setvar "osmode" 0)  (command ".move" src "" (mid src) (mid des))  (setvar "osmode" oldos)  (princ))(vl-load-com)

Lee Mac · 发表于 2022-7-6 09:34:52

因为我今天感觉很慷慨

copy

(defun c:test ( / el i pt ss x )
 (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
     (setq el (entget (ssname ss (setq i (1- i))))
           pt (cdr (assoc 10 el))
     )
     (if
       (entmakex
         (append
           (list
             (cons 0 "CIRCLE")
             (list 10 (car pt) (cadr pt) 0.)
             (cons 40 (if (equal 0.0 (last pt) 1e- 1.0 (abs (/ (last pt) 2.))))
           )
           (apply 'append
             (mapcar
              '(lambda ( x ) (if (assoc x el) (list (assoc x el))))
              '(8 6 39 48 62 210)
             )
           )
         )
       )
       (entdel (cdr (assoc -1 el)))
     )
   )
 )
 (princ)
)