求大大帮忙改个，关于标注

林小林子

之前G版老大给过程序       (defun c:tt (/ *error* osmode)  (defun *error* (s)    (setvar 'osmode osmode)    (princ s)  )  (if (and        (setq p1 (getpoint "\n第一点:"))        (setq p2 (getpoint p1 "\n第二点:"))        (setq s (ssget "F" (list p1 p2) '((0 . "*line,arc,circle"))))      )    (progn      (setq osmode (getvar 'osmode))      (setvar 'osmode 4645)      (command "_qdim" s "")      (while (= 1 (getvar "cmdactive"))        (command pause)      )      (setvar 'osmode osmode)    )  )  (princ))                           是否可以更改一下，就是选择某个图层，然后标注只在这个图层上面，其他图层上的图元都忽略。。。

Andyhon

(setq s (ssget "F" (list p1 p2) '((0 . "*line,arc,circle"))))
===>
(setq s (ssget "F" (list p1 p2) '((0 . "*line,arc,circle") (8 . "某个图层"))))

664571221

Andyhon 发表于 2019-4-23 10:09
(setq s (ssget "F" (list p1 p2) '((0 . "*line,arc,circle"))))
===>
(setq s (ssget "F" (list p1 p2) ...

你好能否某个图层是拿来选择的，能不能弄一个完整的程序

start4444

command:qdim

taoyi0727

这个是海龙工具

林小林子

使用选择图层，而不是固定的一个图层，感谢大大。

林小林子

Andyhon 发表于 2019-4-23 10:09
(setq s (ssget "F" (list p1 p2) '((0 . "*line,arc,circle"))))
===>
(setq s (ssget "F" (list p1 p2) ...

大大帮忙改为选择图层而不是固定的某个图层！

bai2000

1291500406

林小林子 发表于 2019-4-24 09:55
大大帮忙改为选择图层而不是固定的某个图层！

(defun c:tt (/ *error* osmode)  (defun *error* (s)(setvar 'osmode osmode) (princ s)  )  
(if (and (setq bb (entsel "选取参照物")) (setq p1 (getpoint "\n第一点:"))(setq p2 (getpoint p1 "\n第二点:"))
(setq s (ssget "F"  (LIST  p1  p2 )  (LIST '(0 . "*line,arc,circle") (assoc 8 (entget (car bb)))))))
(progn(setq osmode (getvar 'osmode))(setvar 'osmode 4645)(command "_qdim" s "")   
(while (= 1 (getvar "cmdactive"))(command pause))(setvar 'osmode osmode)))(princ))   

林小林子

1291500406 发表于 2019-4-24 19:06
(defun c:tt (/ *error* osmode)  (defun *error* (s)(setvar 'osmode osmode) (princ s)  )  
(if (and ...

感谢大大！