小鸟 发表于 2023-5-9 16:21:51

剖面图递增插件

本帖最后由 小鸟 于 2023-5-9 16:23 编辑

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


来武影 发表于 2023-5-10 08:41:34

本帖最后由 来武影 于 2023-5-10 09:36 编辑

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

来武影 发表于 2023-5-10 08:44:23

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

小鸟 发表于 2023-5-10 11:22:46

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

可以的 一样原理.

hzyhzjjzh 发表于 2023-5-12 13:45:19

感谢楼主分享{:1_1:}:(
页: [1]
查看完整版本: 剖面图递增插件