断面标注

yjpzc

(defun c:dmbz()
     (setvar "cmdecho" 0)
     (setq osmode_bak(getvar "osmode"))
     (setvar "osmode" 0)
     (command "layer" "M" "dmbz" "C" "7" "" "LT" "CONTINUOUS" "" "")
     (princ "比例尺:<1:")
     (princ scale)
     (princ ">")
     (setq scale1 (getreal))
     (if (not (null scale1)) (setq scale scale1))
     (setq zh (/ (* 2.5 scale) 1000))
     (setvar "luprec" 1)  
       (setq midxy(getpoint "\n请选择断面的中点:"))
       (setq midx(nth 0 midxy))
       (setq midy(nth 1 midxy))
       (setq midgc(getreal "\n请选择断面的中点高程:"))
       (setq pt1(getpoint "\n请选择标注断面的点:"))
       (while (/= pt1 nil)
              (setq bzx(nth 0 pt1))
              (setq bzy(nth 1 pt1))
              (setq s(strcat "偏距：" (rtos (abs(- midx bzx))2 3)))
              (setq h(strcat "高程：" (rtos (+ midgc (- bzy midy)) 2 3)))
              (setq pt2 (getpoint pt1 "输入引线"))
              (setq ang (angle pt1 pt2))
              (setq ang1 (* (/ ang pi) 180))
                 (xy2)
   
  (if
              (and (>= ang1 90) (<= ang1 270))
                    (xy1))
  (command "pline" pt1 pt2 pt3 "")
  (command "text" "j" "c"   pt5 zh 0 s)
  (command "text" "j" "c"  pt6 zh 0 h)
  (setq pt1 (getpoint "输入标注点 (右击取消)"))
  )
  (setvar "osmode" osmode_bak)
  )                 
              
              
              
              

skg123

运行后出现     错误: no function definition: XY2

树櫴希德

小小改了下 将就用  

1. (defun c:dmbz()
   
2.      (setvar "cmdecho" 0)
   
3.      (setq osmode_bak(getvar "osmode"))
   
4.      (setvar "osmode" 1)
   
5.      (command "layer" "M" "dmbz" "C" "7" "" "LT" "CONTINUOUS" "" "")
   
6.      (princ "标注比例尺:<1:")
   
7.      (princ scale)
   
8.      (princ ">")
   
9.      (setq scale1 (getreal))
   
10.      (if (not (null scale1)) (setq scale scale1))
    
11.      (setq zh (/ (* 2.5 scale) 1000))
    
12.   (setq hxbl (getint "\n请输入断面横向比例 1 :"))
    
13.   (setq zxbl (getint "\n请输入断面纵向比例 1 :"))
    
14.      (setvar "luprec" 1)  
    
15.        (setq midxy(getpoint "\n请选择断面的中点:"))
    
16.        (setq midx(nth 0 midxy))
    
17.        (setq midy(nth 1 midxy))
    
18.        (setq midgc(getreal "\n请选择断面的中点高程:"))
    
19.        (setq pt1(getpoint "\n请选择标注断面的点:"))
    
20.        (while (/= pt1 nil)
    
21.               (setq bzx(nth 0 pt1))
    
22.               (setq bzy(nth 1 pt1))
    
23.               (setq s(strcat "偏距：" (rtos    (* (abs(- midx bzx)) (/ hxbl 1000.000))      2 3)))
    
24.               (setq h(strcat "高程：" (rtos (+ midgc  (*(- bzy midy) (/ zxbl 1000.000) )   ) 2 3)))
    
25.               (setq pt2 (getpoint pt1 "输入引线"))
    
26.               (setq ang (angle pt1 pt2))
    
27.               (setq ang1 (* (/ ang pi) 180))
    
28. 
    
29.       (defun xy2  ( /)
    
30.        (setq pt5 (polar pt2 (+ (* pi 0.5 ) ang1) zh) ) (setq pt6 (polar pt2 (+ (* pi 1.5 ) ang1) zh) )
    
31.       (setq pt3 (polar pt2 0 (* 5 zh)) )
    
32.   )
    
33.    (defun xy1  ( /)
    
34.        (setq pt5 (polar pt2 (+ (* pi 1.5 ) ang1) zh) ) (setq pt6 (polar pt2 (+ (* pi 0.5 ) ang1) zh) )
    
35.       (setq pt3 (polar pt2 0 (* 5 zh)) )
    
36.   )
    
37.    
    
38.                  (xy2)
    
39.    
    
40.   (if
    
41.               (and (>= ang1 90) (<= ang1 270))
    
42.                     (xy1))
    
43. 
    
44.   (command "pline" pt1 pt2 pt3 "")
    
45.    (setvar "osmode" 16384)
    
46.   ;(command "text" "j" "c"   pt5 zh 0 s)
    
47.    (entmake (list '(0 . "TEXT") (cons 1 s) (cons 10 pt5) (cons 40 zh)))
    
48.   ;(command "text" "j" "c"  pt6 zh 0 h)
    
49.    (entmake (list '(0 . "TEXT") (cons 1 h) (cons 10 pt6) (cons 40 zh)))
    
50.    (setvar "osmode" osmode_bak)
    
51.   (setq pt1 (getpoint "输入标注点 (右击取消)"))
    
52.   )
    
53.   
    
54.   )                 
    
55.               
    
56.               

(defun c:dmbz()<br />      (setvar "cmdecho" 0)<br />      (setq osmode_bak(getvar "osmode"))<br />      (setvar "osmode" 1)<br />      (command "layer" "M" "dmbz" "C" "7" "" "LT" "CONTINUOUS" "" "")<br />      (princ "标注比例尺:<1:")<br />      (princ scale)<br />      (princ ">")<br />      (setq scale1 (getreal))<br />      (if (not (null scale1)) (setq scale scale1))<br />      (setq zh (/ (* 2.5 scale) 1000))<br />   (setq hxbl (getint "\n请输入断面横向比例 1 :"))<br />   (setq zxbl (getint "\n请输入断面纵向比例 1 :"))<br />      (setvar "luprec" 1)  <br />        (setq midxy(getpoint "\n请选择断面的中点:"))<br />        (setq midx(nth 0 midxy))<br />        (setq midy(nth 1 midxy))<br />        (setq midgc(getreal "\n请选择断面的中点高程:"))<br />        (setq pt1(getpoint "\n请选择标注断面的点:"))<br />        (while (/= pt1 nil)<br />               (setq bzx(nth 0 pt1))<br />               (setq bzy(nth 1 pt1))<br />               (setq s(strcat "偏距：" (rtos    (* (abs(- midx bzx)) (/ hxbl 1000.000))      2 3)))<br />               (setq h(strcat "高程：" (rtos (+ midgc  (*(- bzy midy) (/ zxbl 1000.000) )   ) 2 3)))<br />               (setq pt2 (getpoint pt1 "输入引线"))<br />               (setq ang (angle pt1 pt2))<br />               (setq ang1 (* (/ ang pi) 180))<br /> <br />       (defun xy2  ( /)<br />        (setq pt5 (polar pt2 (+ (* pi 0.5 ) ang1) zh) ) (setq pt6 (polar pt2 (+ (* pi 1.5 ) ang1) zh) )<br />       (setq pt3 (polar pt2 0 (* 5 zh)) )<br />   )<br />    (defun xy1  ( /)<br />        (setq pt5 (polar pt2 (+ (* pi 1.5 ) ang1) zh) ) (setq pt6 (polar pt2 (+ (* pi 0.5 ) ang1) zh) )<br />       (setq pt3 (polar pt2 0 (* 5 zh)) )<br />   )<br />    <br />                  (xy2)<br />    <br />   (if <br />               (and (>= ang1 90) (<= ang1 270))<br />                     (xy1))<br /> <br />   (command "pline" pt1 pt2 pt3 "")<br />    (setvar "osmode" 16384)<br />   ;(command "text" "j" "c"   pt5 zh 0 s)<br />    (entmake (list '(0 . "TEXT") (cons 1 s) (cons 10 pt5) (cons 40 zh)))<br />   ;(command "text" "j" "c"  pt6 zh 0 h)<br />    (entmake (list '(0 . "TEXT") (cons 1 h) (cons 10 pt6) (cons 40 zh)))<br />    (setvar "osmode" osmode_bak)<br />   (setq pt1 (getpoint "输入标注点 (右击取消)"))<br />   )<br />   <br />   )                 <br />               <br />               

gzxl

8年前的，要改就改好些啦