[LISP程序]：偏移（更改命令就可以拷贝）多义线pline子段的小程序

lsjjm

偏移（更改命令就可以拷贝）多义线pline子段（线段或弧）的小程序
(defun c:test (/ plist pp)
  (setq aa (entsel "\nSelect pline:"))
  (setq bb (cadr aa))
  (setq oo (getdist "\nValue of offset:"))
  (vl-cmdf "explode" aa "")
  (setq ss (ssget "c" (polar bb (/ pi 4) 0.01)(polar bb (* 1.25 pi) 0.01)))
  (vl-cmdf "offset" oo bb (getpoint "\nInput offset point:") "")
  (setq dd (entget (entlast)))
  (vl-cmdf "undo" 2 "")
  (entmake (cdr dd))
);defun

XDSoft

构造选择集的时候

2. 
   
3. (setq ss (ssget "c" (polar bb (/ pi 4) 0.01)(polar bb (* 1.25 pi) 0.01)))
   

<br /> (setq ss (ssget "c" (polar bb (/ pi 4) 0.01)(polar bb (* 1.25 pi) 0.01)))<br />

建议不要用具体的数字0.01,这样有可能选不到，因为屏幕有可能画的很大，很小。

建议用当然拾取框的高度代替，通过系统变量 viewsize,screensize,pickbox等等得到拾取框的高度值，这样就可以适合任何屏幕大小了。

LUCAS

2. 
   
3. ;;他的程序根本没有用到SS
   
4. ;;偏移多义线pline子段(线段或弧)的小程序
   
5. (defun C:PLINEOFFSET (/ HOLDECHO HOLDOSMODE AA BB OO PT DD)
   
6.   (setq HOLDECHO (getvar "cmdecho"))
   
7.   (setvar "cmdecho" 0)
   
8.   (setq HOLDOSMODE (getvar "osmode"))
   
9.   (setvar "osmode" 0)
   
10.   (setq AA (entsel "\n选取要偏移的对象: "))
    
11.   (setq BB (osnap (cadr AA) "nea"))
    
12.   (setq OO (getdist BB "\n指定偏移距离: "))
    
13.   (setq PT (getpoint BB "\n指定要在那一侧偏移复制: "))
    
14.   (vl-cmdf "explode" AA)
    
15.   (vl-cmdf "offset" OO BB PT "")
    
16.   (setq DD (entget (entlast)))
    
17.   (vl-cmdf "undo" 2)
    
18.   (entmake DD)
    
19.   (setvar "osmode" HOLDOSMODE)
    
20.   (setvar "cmdecho" HOLDECHO)
    
21.   (princ)
    
22. )
    

<br /> ;;他的程序根本没有用到SS<br /> ;;偏移多义线pline子段(线段或弧)的小程序<br /> (defun C:PLINEOFFSET (/ HOLDECHO HOLDOSMODE AA BB OO PT DD)<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq HOLDOSMODE (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq AA (entsel "\n选取要偏移的对象: "))<br />   (setq BB (osnap (cadr AA) "nea"))<br />   (setq OO (getdist BB "\n指定偏移距离: "))<br />   (setq PT (getpoint BB "\n指定要在那一侧偏移复制: "))<br />   (vl-cmdf "explode" AA)<br />   (vl-cmdf "offset" OO BB PT "")<br />   (setq DD (entget (entlast)))<br />   (vl-cmdf "undo" 2)<br />   (entmake DD)<br />   (setvar "osmode" HOLDOSMODE)<br />   (setvar "cmdecho" HOLDECHO)<br />   (princ)<br /> )<br />

lsjjm

谢谢两位指正。这是以前编的程序现在拿来试验了一下没有问题就贴上了。
(setq ss (ssget "c" (polar bb (/ pi 4) 0.01)(polar bb (* 1.25 pi) 0.01)))是多余的。