tc405003 发表于 2005-10-4 21:52:00

图层可以以点取的文字建立吗

<P>&nbsp; (setq wenzhi (cdr (assoc 1 (entget (car (entsel "\n请点取想要归层的文字:"))))))<BR>&nbsp; (MKLA "wenzhi" 1)</P>
<P>MKLA是一个子程序</P>

xyp1964 发表于 2005-10-10 21:49:00

(defun c:test ()
(setq wenzhi (cdr
   (assoc 1 (entget (car (entsel "\n请点取想要归层的文字 : "))))
      )
)
(if wenzhi
    (MKLA wenzhi 1)
)
(princ)
)

freefeng 发表于 2008-5-13 23:38:00

好像不行哦

ZZXXQQ 发表于 2008-5-14 08:22:00



;以所选文字设定图层 明经 ZZXXQQ 2008.5.14
(defun c:tt ()
(if (and (setq s1 (entsel "\nSelect a Text 选择文字 :"))
          (setq ent (entget (car s1)))
          (= (cdr (assoc 0 ent)) "TEXT")) (progn
(setq lnm (cdr (assoc 1 ent)))
(command "layer" "M" lnm "")
))
(princ)
)

liminnet 发表于 2008-5-14 17:19:00

babyj 发表于 2011-7-28 14:38:36

晕死，好多帖子还看不到！

babyj 发表于 2011-7-28 14:39:14

晕死，好多帖子还看不到！
只能刷满5个帖了。

babyj 发表于 2011-7-28 14:39:59

晕死，好多帖子还看不到！
只能刷满5个帖了。

babyj 发表于 2011-7-28 14:41:16

晕死，好多帖子还看不到！
只能刷满5个帖了。

etoxp 发表于 2011-9-29 20:12:28

能不能取消这个限制啊
页: [1] 2
查看完整版本: 图层可以以点取的文字建立吗