lzg8877 发表于 2013-1-10 20:04:29

求助　偏移删源线改进


这个程序　可否改成运行完成后返回我ＣＡＤ原设的捕捉并且我用过的偏移距离设为下次使用默认　
　在此等候　希望会的出手帮忙

(defun c:ooo ()
(prompt "输入偏离值:")
(setq jl (getreal ) os (getvar "osmode") cm (getvar "cmdecho"))
(setvar "osmode" 512)
(setvar "cmdecho" 0)
(while (setq p1 (getpoint "选择目标:( 按空格 或 鼠标右键回车退出 )"))(terpri);;你看到最近点的标记点下去，肯定选到目标。在循环中按空格 或 鼠标右键回车就退出 。
       (setq en (ssget p1))
      (setq p2 (getpoint p1) )
       (command "offset" jl en p2 "")
      (command "erase" en "")
      (command "regen")
)
(setvar "osmode" os)
(setvar "cmdecho" cm)
)

lzg8877 发表于 2013-1-11 07:07:18

求关注下　谢谢

ZZXXQQ 发表于 2013-1-11 08:31:35

不知这样行不行

(defun c:ooo ()
(setq jl (getreal "输入偏离值: ")
       os (getvar "osmode")
       cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "osmode" 512)
(setvar "OFFSETDIST" jl)
(while (setq p1 (getpoint "选择目标:( 按空格 或 鼠标右键回车退出 )"))(terpri);;你看到最近点的标记点下去，肯定选到目标。在循环中按空格 或 鼠标右键回车就退出 。
(setq en (ssget p1))
(setq p2 (getpoint p1))
(command "offset" "" en p2 "")
(command "erase" en "")
(command "regen")
)
(setvar "osmode" os)
(setvar "cmdecho" cm)
)

lzg8877 发表于 2013-1-11 23:34:30

还不行　那里有错呢

lzg8877 发表于 2013-1-12 07:06:39

大家早上好　求关注　求改进
页: [1]
查看完整版本: 求助　偏移删源线改进