[LISP程序]：取道路中心线

zqyisme

;;;;取道路中心线
(defun c:zdd()
   (command "osnap" "nea" "")
　 ;;;(setq r (getint "\n输入确定中心线的组点数:"))
   (setq p1 (getpoint "\n选择线上点:"))
   (setq p2 (getpoint "\n选择线对面点:"))
   (setq rr 0)
   (setq jj 0)
   (setq pts'())
   ;;(repeat r
   (while p2
   (setq rr (+ rr 1))
   (setq srr (itoa rr))
   (setq jj (+ jj 1))
   (setq sjj (itoa jj))
   ;(setq pa (strcat "a" srr))
   ;(setq pb (strcat "b" sjj))
   ;(setq tsa (strcat "\n选择第" srr "组点:"))
   ;(setq tsb (strcat "\n选择第" sjj "组对面点:"))
   ;(setq pta (getpoint tsa))
   ;(setq ptb (getpoint tsb))
   (setq ptax (car p1)
         ptay (cadr p1)
   )
   (setq ptbx (car p2)
         ptby (cadr p2)
    )
   (setq ptcx (/ (+ ptax ptbx) 2))
   (setq ptcy (/ (+ ptay ptby) 2))
;;(setq ptc (strcat "pt" (itoa rr)))
(setq ptc (list ptcx ptcy));;;确定第一点
(setq pts (cons ptc pts))
(setq p1 (getpoint "\n选择线上点:"))
(setq p2 (getpoint "\n选择线对面点:"))
)
(command "layer" "m" "次干道中心线(yp)"　"c" 50 "" "")
(command "linetype" "s" "lzx" "")
(command "pline")
(setq iii 0)
(setq len (length pts))
(while (< iii len)
  (command (nth iii pts) "w" 0 0)
  (setq iii (1+ iii))
  )
(command  "")
)

dwg001

(command "linetype" "s" "lzx" "")
====>
(command "linetype" "s" "center" "")

zml84

楼主的代码，根据我的理解将其改变后如下：

2. 
   
3. ;;;;取道路中心线
   
4. (defun c:zdd()
   
5.         (command "osnap" "nea" "")
   
6.         (command "layer" "m" "次干道中心线(yp)"　"c" 50 "" "")
   
7.         (command "linetype" "s" "lzx" "")
   
8.         (command "pline")
   
9.         (while        (if        (setq pt1 (getpoint "\n选择线上一点>:"))
   
10.                         (if        (setq pt2 (getpoint pt1 "选择线对面点>:"))
    
11.                         )
    
12.                 )
    
13.                 (setq        pt1x        (car pt1)
    
14.                         pt1y        (cadr pt1)
    
15.                         pt2x        (car pt2)
    
16.                         pt2y        (cadr pt2)
    
17.                         pt3x        (/ (+ pt1x pt2x) 2.0)
    
18.                         pt3y        (/ (+ pt1y pt2y) 2.0)
    
19.                         pt3        (list pt3x pt3y)
    
20.                 )
    
21.                 (command pt3 "w" 0 0)
    
22.         )
    
23.         (command "")
    
24.         (princ)
    
25. )
    

<br /> ;;;;取道路中心线<br /> (defun c:zdd()<br />         (command "osnap" "nea" "")<br />         (command "layer" "m" "次干道中心线(yp)"　"c" 50 "" "")<br />         (command "linetype" "s" "lzx" "")<br />         (command "pline")<br />         (while        (if        (setq pt1 (getpoint "\n选择线上一点>:"))<br />                         (if        (setq pt2 (getpoint pt1 "选择线对面点>:"))<br />                         )<br />                 )<br />                 (setq        pt1x        (car pt1)<br />                         pt1y        (cadr pt1)<br />                         pt2x        (car pt2)<br />                         pt2y        (cadr pt2)<br />                         pt3x        (/ (+ pt1x pt2x) 2.0)<br />                         pt3y        (/ (+ pt1y pt2y) 2.0)<br />                         pt3        (list pt3x pt3y)<br />                 )<br />                 (command pt3 "w" 0 0)<br />         )<br />         (command "")<br />         (princ)<br /> )<br />

qinqin2008

晕了 这些代码怎么用啊？