林小林子 发表于 2019-4-23 09:09:51

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

本帖最后由 林小林子 于 2019-4-23 09:11 编辑

之前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 发表于 2019-4-23 10:09:02

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

664571221 发表于 2019-4-23 10:53:47

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 发表于 2019-4-23 10:57:46

command:qdim

taoyi0727 发表于 2019-4-23 11:13:50

这个是海龙工具

林小林子 发表于 2019-4-24 09:50:22

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

林小林子 发表于 2019-4-24 09:55:39

本帖最后由 林小林子 于 2019-4-24 11:34 编辑

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 发表于 2019-4-24 17:38:58

1291500406 发表于 2019-4-24 19:06:26

本帖最后由 1291500406 于 2019-4-24 19:09 编辑

林小林子 发表于 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"(LISTp1p2 )(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))   

林小林子 发表于 2019-4-25 08:08:53

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

感谢大大！
页: [1]
查看完整版本: 求大大帮忙改个，关于标注