剖面图递增插件

小鸟

2. (defun c:pm(/ hz pt q1q2qz str zz)
   
3. (setq qz "60-R20103S-G0101-" ;固定文字1
   
4.       )
   
5. (setq zz "机关楼东配楼" ;固定文字2
   
6.       )
   
7. (setq hz "工程地质剖面图" ;固定文字3
   
8.       )
   
9. (setq q1 0)
   
10. (setq q2 0)
    
11. (while (setq pt(getpoint "\n指定点:"))
    
12. (setq str(strcat qz
    
13.                  (itoa(setq q1(+ q1 1)))
    
14.                  zz
    
15.                  (itoa(setq q2(+ q2 1)))
    
16.                  "-" ;固定文字4
    
17.                 (itoa q2)
    
18.                  "'工程地质剖面图" ;固定文字5         
    
19.          )
    
20.   )
    
21.   (YD-01文字 str pt 0)
    
22.   (command "chprop" "l" "" "c" "122" "")
    
23. )
    
24. (princ "剖面图递增插件， 命令：pm ")
    
25.   )
    
26. (defun YD-01文字 (文字 pta gd / )
    
27.   (entmake
    
28.             (list '(0 . "MTEXT")
    
29.                   '(100 . "AcDbEntity")
    
30.                   '(100 . "AcDbMText")
    
31.                   '(7 . "Standard");; 文字样式
    
32.                   (cons 1 文字);;文字内容
    
33.                   (cons 10 pta);;文字插入点
    
34.                   (cons 8 "0");;文字图层
    
35.                   (cons 40 gd);;文字倾斜度
    
36.                   (cons 71 5) ;;水平对正 居中对正
    
37.                 ; (cons 73 2) ;;垂直对正 居中对正
    
38.             )
    
39.           )
    
40.   ;(princ "异度空间 写文字")
    
41.   )
    
42. 
    
43.   

(defun c:pm(/ hz pt q1q2qz str zz)<br /> (setq qz "60-R20103S-G0101-" ;固定文字1<br />       )<br /> (setq zz "机关楼东配楼" ;固定文字2<br />       )<br /> (setq hz "工程地质剖面图" ;固定文字3<br />       )<br /> (setq q1 0)<br /> (setq q2 0)<br /> (while (setq pt(getpoint "\n指定点:"))<br /> (setq str(strcat qz<br />                  (itoa(setq q1(+ q1 1)))<br />                  zz<br />                  (itoa(setq q2(+ q2 1)))<br />                  "-" ;固定文字4<br />                 (itoa q2)<br />                  "'工程地质剖面图" ;固定文字5         <br />          )<br />   )<br />   (YD-01文字 str pt 0)<br />   (command "chprop" "l" "" "c" "122" "")<br /> )<br /> (princ "剖面图递增<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>， 命令：pm ")<br />   )<br /> (defun YD-01文字 (文字 pta gd / )<br />   (entmake<br />             (list '(0 . "MTEXT")<br />                   '(100 . "AcDbEntity")<br />                   '(100 . "AcDbMText")<br />                   '(7 . "Standard");; 文字样式<br />                   (cons 1 文字);;文字内容<br />                   (cons 10 pta);;文字插入点<br />                   (cons 8 "0");;文字图层<br />                   (cons 40 gd);;文字倾斜度<br />                   (cons 71 5) ;;水平对正 居中对正<br />                 ; (cons 73 2) ;;垂直对正 居中对正<br />             )<br />           )<br />   ;(princ "异度空间 写文字")<br />   )<br /> <br />   

来武影

(princ "剖面图递增<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank"
class="relatedlink">插件</a>， 命令：pm ")
; 错误: 参数类型错误: FILE nil

论坛显示问题

来武影

我们一般都是按照“ xxx工程xxx建筑物工程地质剖面图x-x' ”这样的规则命名的

小鸟

来武影 发表于 2023-5-10 08:44
我们一般都是按照“ xxx工程xxx建筑物工程地质剖面图x-x' ”这样的规则命名的

可以的 一样原理.

hzyhzjjzh

感谢楼主分享