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

Keenir

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

xyp1964

1. (defun c:tt ()
   
2.   (setq dd (getvar "offsetdist"))
   
3.   (setq ds (getdist (strcat "\n输入偏移距离<" (rtos dd) ">:")))
   
4.   (if (= ds nil)
   
5.     (setq ds dd)
   
6.   )
   
7.   (setvar "PeditAccept" 1)
   
8.   (if (setq ss (ssget (car (list nil (print "请选择要同时偏移的对象: ")))))
   
9.     (progn
   
10.       (command "Pedit" "M" ss "" "j" 0.0 "")
    
11.       (setq s1 (entlast)
    
12.             pt (vlax-curve-getStartPoint s1)
    
13.       )
    
14.       (command "offset" ds (list s1 pt) Pause "")
    
15.       (command "Chprop" (entlast) "" "La" (Getvar "Clayer") "")
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    

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

南极人

院长传授知识呢

liwen888888

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

Keenir

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

谢谢了

zjy2999

谢谢，学习!!!!!

pengfei2010

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

机械小男人雄起

有用，受教啦

paulpipi

有用，受教啦