看看这个怎么弄
(defun c:t ()(setvar "osmode" (+ 0))
(while (and (setq p (getpoint "\n插入点: "))
(setq str (getstring t "\n请输入文字: "))
)
(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 6)(cons 1 (strcat "BJX358" str))))
)
(setvar "osmode" 3)
(princ)
)
(setq HH:Osmode (getvar "osmode"))
(defun HH:resetosmode (v1 v2)
(if (/= (getvar "osmode") HH:Osmode)
(setvar "osmode" HH:Osmode)
)
(princ)
)
(vlr-editor-reactor
nil
'((:vlr-lispEnded . HH:ResetOsmode)
(:vlr-lispCancelled . HH:ResetOsmode)
)
)
这是一个单线文字插件，现在有个问题看看哪位能不能给解决一下：就是输入的文字是在当前图层，我想把它改为：不官当前是哪个图层，输入的文件放在lasey8这个图层里。请问怎么加一语句？
(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 6)(cons 1 (strcat "BJX358" str))))
改8组码 masterlong 发表于 2017-9-13 16:18
(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 6)(cons 1 (strcat "BJX358" str))) ...
是的，想把它放在图层8里 (entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "这里写你要放到的图层的名字")'(62 . 6)(cons 1 (strcat "BJX358" str)))) 669423907 发表于 2017-9-13 22:08
(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "这里写你要放到的图层的名字")'(62 . 6)(cons 1 ...
谢谢，修改好了
页:
[1]