看看这个怎么弄

xiao88gang

(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这个图层里。请问怎么加一语句？

masterlong

(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 6)(cons 1 (strcat "BJX358" str))))

改8组码

xiao88gang

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里

669423907

(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "这里写你要放到的图层的名字")'(62 . 6)(cons 1 (strcat "BJX358" str))))

xiao88gang

669423907 发表于 2017-9-13 22:08
(entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "这里写你要放到的图层的名字")'(62 . 6)(cons 1 ...

谢谢，修改好了