自由修剪后留一点长度

simpleye

已找到合适的程序了。

菜卷鱼

1. (defun c:zx ( )
   
2. (initget 1 )
   
3. (setq ex (getreal "\n延伸长度:"))
   
4. (initget 1 )
   
5. (setq ent (entsel ":\nCircle:"))
   
6. (setq cpt (osnap (cadr ent) "_cen"))
   
7. (setq rad (cdr (assoc 40 (entget (car ent)))) )
   
8. (setq pt1 (polar cpt 0 (+ rad ex)))
   
9. (setq pt3 (polar cpt (/ pi 2) (+ rad ex)))
   
10. (setq pt2 (polar cpt  pi  (+ rad ex)))
    
11. (setq pt4 (polar cpt (* pi 1.5) (+ rad ex)))
    
12. (setq ss (ssget "_c" cpt cpt))
    
13. (setvar "cmdecho" 0)
    
14. (command "erase" ss "")
    
15. (setvar "cmdecho" 1)
    
16. (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
    
17. (entmake (list '(0 . "LINE") (cons 10 pt3) (cons 11 pt4)))
    
18. )

(defun c:zx ( )<br /> (initget 1 )<br /> (setq ex (getreal "\n延伸长度:"))<br /> (initget 1 )<br /> (setq ent (entsel ":\nCircle:"))<br /> (setq cpt (osnap (cadr ent) "_cen"))<br /> (setq rad (cdr (assoc 40 (entget (car ent)))) )<br /> (setq pt1 (polar cpt 0 (+ rad ex)))<br /> (setq pt3 (polar cpt (/ pi 2) (+ rad ex)))<br /> (setq pt2 (polar cpt  pi  (+ rad ex)))<br /> (setq pt4 (polar cpt (* pi 1.5) (+ rad ex)))<br /> (setq ss (ssget "_c" cpt cpt))<br /> (setvar "cmdecho" 0)<br /> (command "erase" ss "")<br /> (setvar "cmdecho" 1)<br /> (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))<br /> (entmake (list '(0 . "LINE") (cons 10 pt3) (cons 11 pt4)))<br /> )

混沌初开

请问楼主这个是做什么用的？来自: Android客户端

wngxb

菜卷鱼 发表于 2013-12-27 11:44

如何只延伸框选的所有线条一头或者两头的指定长度呢，包括所有性质的线条。