[完成]：写字到特定层一段LSP,

dhxf · 发表于 2005-4-20 19:07:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(DEFUN C:dt ()
(setq oldlay (getvar "clayer"))
(command "layer" "n" "E-zm" "" )
(setvar "clayer" "E-zm")
(command "text" )
(setvar "clayer" oldlay)
)

xyp1964 · 发表于 2005-4-20 19:15:02

看看这样行不行：

(DEFUN C:dt ()
;(setq oldlay (getvar "clayer"))
(command "layer" "n" "E-zm" "" )
(setvar "clayer" "E-zm")
(command "text" )
;(setvar "clayer" oldlay)
)

ljpnb · 发表于 2005-4-20 19:59:32

这句(command "layer" "n" "E-zm" "" )改成(command "-layer" "n" "E-zm" "" )

啵浪鼓 · 发表于 2005-4-20 22:20:07

好像layer和-layer对程序不会有影响，一样的执行

xyp1964 · 发表于 2005-4-20 22:34:09

这样就行了：
[php]
(DEFUN C:dt ()
  (mkla1"E-zm")
  (command "text")
)
(defun mkla1 (name)
  (If (= (Tblsearch "layer" name) nil)
(Command "layer" "m" name "")
(Command "layer" "t" name "s" name "")
  )
)
[/php]

啵浪鼓 · 发表于 2005-4-21 00:22:22

斑竹又在推销自已的产品了，呵呵~

dhxf · 发表于 2005-4-21 16:44:13

谢谢;
想达到写字到特定层,写完后回到原始层;
且E-ZM 层为绿色

xyp1964 · 发表于 2005-4-21 18:31:22

用 (command "text" ) 这种方式实现不了！

dhxf · 发表于 2005-4-21 21:38:00

那么怎么样可以实现呢?

柔柔 · 发表于 2005-4-22 01:29:46

(DEFUN C:dt ()
  (setq oldlay (getvar "clayer"))
  (command "layer" "n" "E-zm" "")
  (setvar "clayer" "E-zm")
  (setq pp (getpoint "\n已转到文字图层,任意键进入文字输入命令 "))
  (command "text")
  (setvar "clayer" oldlay)
)

dhxf · 发表于 2005-4-22 10:45:19

10楼程序,千奇百怪的效果;
字没写到E-ZM

xyp1964 · 发表于 2005-4-22 11:57:55

(command "text")这句不完整。

柔柔 · 发表于 2005-4-22 12:51:20

最初由 dhxf 发布
[B]10楼程序,千奇百怪的效果;
字没写到E-ZM [/B]

真是这样，昨天只顾了当前层，没检查结果。呵呵，我再想想办法。
试试这个：
(defun c:dt ()
  (setq oldlay (getvar "clayer"))
  (command "layer" "n" "E-zm" "s" "E-zm" "")
  (command "text" pause pause)
  (setvar "clayer" oldlay)
)

dhxf · 发表于 2005-4-22 14:25:19

OK啦;颜色我自己加上;

账号		自动登录	找回密码
密码			立即注册

[完成]：写字到特定层一段LSP,

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子