[求助]：本来在0层，使用line命令后，改变到1层，画完后，又回到0层？？

nuomandi · 发表于 2005-6-9 22:08:13

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

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

×

本来在0层，使用line命令后，改变到1层，
画完后，又回到0层？？

那位高手可以帮小弟解决这个问题？？

firstintimate · 发表于 2005-6-10 08:34:42

这不是好习惯～

舟自横 · 发表于 2005-6-10 08:52:12

(setq oldlayer (getvar "clayer"))
(setvar "clayer" "1")
(setq p1 (getpoint "選擇第一點："))
(setq p2 (getpoint p1 "選擇第二點："))
(command "line" p1 p2 "")
(setvar "clayer" oldlayer)

nuomandi · 发表于 2005-6-10 10:20:18

舟自横没明白我的意思。

我是说本来有2个层，0和1层，点了line命令后，（还没有确定第一点），层就改变到另外的一个层（比如1层）！
好像很难办！！

xyp1964 · 发表于 2005-6-10 12:51:29

[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：
http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

(defun c:test ()
  (cmdla0)
  (mkla "1" 1)
  (setq pt1 (getpoint "\n起点<退出> : "))
  (if pt1
(progn
   (command "line" pt1)
   (while (setq pt2 (getpoint pt1 "\n下一点<退出> : "))
(command pt2)
(setq pt1 pt2)
   )
   (command "")
)
  )
  (cmdla1)
)[/php]

nuomandi · 发表于 2005-6-10 13:04:30

谢谢xyp1964 ！！

我下载下来仔细看看！！

ypx · 发表于 2005-6-10 17:40:30

看不懂，为什么这么复杂？

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

[求助] [求助]：本来在0层，使用line命令后，改变到1层，画完后，又回到0层？？

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

相关帖子