[LISP程序]：双边偏移直线

yunzhong80

2. (defun c:oo( / aa bb vl1 ptst pten a)
   
3.   (if (porpedom)
   
4.     (progn
   
5.        (setq cls (getvar "clayer"))
   
6.       (setq clp (getvar "osmode"))
   
7.       (setvar "cmdecho"  0 )
   
8.       (setvar "osmode" 0)
   
9.   (setq a (/ (getreal "\n输入双边偏移距离:")  2))
   
10.   (setq aa (entsel "\n请选择双偏的直线："))
    
11.   (setq VL1 (vlax-ename->vla-object (CAR aa)))
    
12.   (setq ptst (vlax-get VL1 'startpoint)) ;求端点
    
13.   (setq pten (vlax-get VL1 'endpoint)) ;求端点
    
14. ; (setq ptst (list (car ptst) (nth 1 ptst)))
    
15.    ;(setq pten (list (car pten) (nth 1 pten)))
    
16.    (command "OFFSET" a aa 10 "" )
    
17.     (setq bb (entlast))
    
18.    (command "MIRROR" bb "" ptst pten  "n" )
    
19.     (setvar "osmode"   clp)
    
20.     (setvar "cmdecho"  1 )  
    
21. )
    
22. )
    
23.    (princ)
    
24.       
    
25.   )

(defun c:oo( / aa bb vl1 ptst pten a)<br />   (if (porpedom)<br />     (progn<br />        (setq cls (getvar "clayer"))<br />       (setq clp (getvar "osmode"))<br />       (setvar "cmdecho"  0 ) <br />       (setvar "osmode" 0)<br />   (setq a (/ (getreal "\n输入双边偏移距离:")  2))<br />   (setq aa (entsel "\n请选择双偏的直线："))<br />   (setq VL1 (vlax-ename->vla-object (CAR aa)))<br />   (setq ptst (vlax-get VL1 'startpoint)) ;求端点<br />   (setq pten (vlax-get VL1 'endpoint)) ;求端点<br /> ; (setq ptst (list (car ptst) (nth 1 ptst)))<br />    ;(setq pten (list (car pten) (nth 1 pten)))<br />    (command "OFFSET" a aa 10 "" )<br />     (setq bb (entlast))<br />    (command "MIRROR" bb "" ptst pten  "n" )<br />     (setvar "osmode"   clp)<br />     (setvar "cmdecho"  1 )  <br /> )<br /> )<br />    (princ)<br />       <br />   )

齐丝

porpedom?
这是什么东东？是不是还有一个子程序？

yunzhong80

不好意思，porpedom是个子程序，贴的时候没注意可以把它去掉可以

linhaiyiye123

这是什么东东？是不是还有一个子程序？

jance526

好东东呀，谢谢

yx5277

好用个啥呀,把porpedom去掉了,显示这个:参数错误,楼主查一查

真龙天子

经修改,楼主的正确程序如下:
(defun c:lpy( / aa bb vl1 ptst pten a)
     (progn
       (setq cls (getvar "clayer"))
      (setq clp (getvar "osmode"))
      (setvar "cmdecho"  0 )
      (setvar "osmode" 0)
  (setq a (/ (getreal "\n输入双边偏移距离:")  2))
  (setq aa (entsel "\n请选择双偏的直线："))
  (setq VL1 (vlax-ename->vla-object (CAR aa)))
  (setq ptst (vlax-get VL1 'startpoint)) ;求端点
  (setq pten (vlax-get VL1 'endpoint)) ;求端点
  (setq ptst (list (car ptst) (nth 1 ptst)))
  (setq pten (list (car pten) (nth 1 pten)))
   (command "OFFSET" a aa 10 "" )
    (setq bb (entlast))
   (command "MIRROR" bb "" ptst pten  "n" )
    (setvar "osmode"   clp)
    (setvar "cmdecho"  1 )  
)
    (princ)
  )
(prompt "<<两侧偏移>>启动命令:lpy")
                    (princ)
该程序只能偏移直线,对多段线和曲线不起作用,如果楼主能编一个对多段线和曲线也能偏移的程序就更好了.

gm7161

好东东呀，谢谢

yinjake007

好东东

youjun4991

还是不能i下东东啊  努力赚钱下东东啊

yxianfo

谢谢奉献！

GNJCAD

不能用啊，，。。。。。。。。。

GNJCAD

不能用啊，，。。。。。。。。。