Keenir 发表于 2017-11-8 21:59:50

请问一下，这个要怎么修改才能用呢，我想做一个偏移并修剪的程序

请问一下，这个要怎么修改才能用呢，我想做一个偏移并修剪的程序。。

xyp1964 发表于 2017-11-8 22:18:47

(defun c:tt ()
(setq dd (getvar "offsetdist"))
(setq ds (getdist (strcat "\n输入偏移距离<" (rtos dd) ">:")))
(if (= ds nil)
    (setq ds dd)
)
(setvar "PeditAccept" 1)
(if (setq ss (ssget (car (list nil (print "请选择要同时偏移的对象: ")))))
    (progn
      (command "Pedit" "M" ss "" "j" 0.0 "")
      (setq s1 (entlast)
          pt (vlax-curve-getStartPoint s1)
      )
      (command "offset" ds (list s1 pt) Pause "")
      (command "Chprop" (entlast) "" "La" (Getvar "Clayer") "")
    )
)
(princ)
)

南极人 发表于 2017-11-9 01:22:38

院长传授知识呢

liwen888888 发表于 2017-11-9 07:38:17

又学习了一点新知识，谢谢

Keenir 发表于 2017-11-9 09:34:24

xyp1964 发表于 2017-11-8 22:18


:victory:谢谢了:lol

zjy2999 发表于 2017-11-9 10:34:33

谢谢，学习!!!!!

pengfei2010 发表于 2017-11-10 09:06:44

回帖是一种美德！感谢楼主的无私分享 谢谢

机械小男人雄起 发表于 2017-11-30 11:34:57

有用，受教啦

paulpipi 发表于 2018-5-1 00:44:48


有用，受教啦
页: [1]
查看完整版本: 请问一下，这个要怎么修改才能用呢，我想做一个偏移并修剪的程序