offset到当前层

conn

帮忙看看这个程序，怎么不好用呢？offset到当前层，谁能再编个？ (defun C:test ()
(setvar "cmdecho" 0)
(setq c_layer (getvar "clayer")
sset (ssget)
pt1 (getpoint "\n基点： ")
count 0)
(prompt "\n位移的第二点： ")
(setq len (sslength sset))
(while (< count len)
(setq name (ssname sset count)
ptlst (entget name)
b (assoc 8 ptlst)
b1 (cdr (assoc 8 ptlst))
c (cons 8 c_layer)
d (subst c b ptlst)
count (1+ count))
(entmod d)
)
(command "_offset" sset "" pt1 pause)
(setq count 0)
(while (< count len)
(setq name (ssname sset count)
ptlst (entget name)
b (assoc 8 ptlst)
c (cons 8 b1)
d (subst c b ptlst)
count (1+ count))
(entmod d)
)
(princ)
)

meflying

(defun c:test( / clayer ent)
(setq clayer (getvar "clayer"))
(setq ent (entlast))
(command "_.offset")
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(while (setq ent (entnext ent))
(command "_.change" ent "" "p" "la" clayer "")
)
(princ)
)

conn

很好。但怎样设定偏移的数值呢？加载的时候会没有反映是什么问题？

conn

加载的时候要回车才能进入是怎么回事？谢谢老师。

无痕

meflying发表于2004-4-1 19:13:00(defun c:test( / clayer ent) (setq clayer (getvar \"clayer\")) (setq ent (entlast)) (command \"_.offset\") (while (/= (getvar \"cmdacti...

程序不错！建议应该加个(setvar "cmdecho" 1)以确保命令行提示显示 另外，探讨一下，如果使程序在没成功偏移一次的时候就改变偏移实体的层属性，版主的程序是将多个偏移成功后最后再处理。

conn

谢谢，真的很好，按照无痕的便如下 (defun c:text( / clayer ent)
(setvar "cmdecho" 1)
(setq clayer (getvar "clayer"))
(setq ent (entlast))
(command "_.offset")
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(while (setq ent (entnext ent))
(command "_.change" ent "" "p" "la" clayer "")
)
(princ)
)

meflying

无痕发表于2004-4-2 0:24:00以下是引用meflying在2004-4-1 19:13:37的发言：(defun c:test( / clayer ent)   (setq clayer (getvar \"clayer\"))  ...

这个应该容易，因为offset没有拖动效果，过程中也没有过多选项，可以直接通过取对象，取点，然后调用命令，这样就可以进行控制了

复制代码

无痕

周末，me版主有空的话改一个吧：）

meflying

我这里星期三停电，换到了周六，一个周末被分成两半了。。。


感觉好象会有一些问题？（这不像你的风格），我试试看吧

无痕

哈哈，我是什么风格？以为有什么玄机吧？



我在看dvd呢，所以没空了：）