jiangjun 发表于 2011-5-22 20:32:42

lisp获取图名？

如何利用lisp获取图中红色圆圈内参照图名．请下载附件．感谢！

jiangjun 发表于 2011-5-22 21:59:48

搞定．tblenext

pizg 发表于 2011-5-23 00:03:09

樓主的圖塊名稱是gc122,
請問這圖檔的路徑是哪裏?

cvbnm8888 发表于 2011-5-23 23:36:25

用 (setq ss (ssget "x" (list(cons 0 "insert")))) 创建选择集，然后根据选择集中图块的名称去判断，GC开头的就是你需要

ZYX2129 发表于 2022-8-4 20:53:10

搞定．tblenext

xyp1964 发表于 2022-8-7 23:38:54


(defun c:tt ()
(defun xyp-dxf (code e) (cdr (assoc code (entget e))))
(setq      i   -1
      lst '()
)
(if (setq ss (ssget '((0 . "CIRCLE") (62 . 1))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq pt (xyp-DXF 10 s1)
            r(xyp-DXF 40 s1)
            p1 (mapcar '(lambda (x y) (- x y)) pt (list r r))
            p2 (mapcar '(lambda (x y) (+ x y)) pt (list r r))
      )
      (if (setq a (ssget "c" p1 p2 '((0 . "insert"))))
      (setq lst (cons (xyp-DXF 2 (ssname a 0)) lst))
      )
    )
)
(print (vl-sort lst '<))
(princ)
)
页: [1]
查看完整版本: lisp获取图名？