平剖面图标产状工具(地质专用)

czb203

插件都很实用哦 ，谢谢啊

清风明月名字

虚拟币与写代码的辛苦对比起来，实在微不足道。
感谢楼主的插件！

清风明月名字

出现如下错误，请更正！

命令: (LOAD "E:/E盘DXM文件夹/有用别删除/ppmcz-平剖面图之平面图画产状.fas") MYERR
命令: ppmcz
-osnap 输入对象捕捉模式列表: off
命令: style 输入文字样式名或 [?] <Standard>: Standard
现有样式。
指定完整的字体名或字体文件名 (TTF 或 SHX): <宋体.shx>: 宋体 指定文字高度
<0.0000>: 0 指定宽度比例 <1.0000>: 1
指定倾斜角度 <0>: 0 是否反向显示文字？[是(Y)/否(N)] <N>: n
是否颠倒显示文字？[是(Y)/否(N)] <N>: n 是否垂直? <N> layer
请回答“是”或“否”。
是否垂直? <N> *取消*

lht

我这里有一个
;;画产状
(defun c:mcz ( / )
      (setvar "cmdecho" 0)
      (setvar "osmode" 0)
      (setvar "celweight" 25)          ;设置新实体的宽度为0.4
       (setvar "edgemode" 1)                         ;设置用延伸来剪切或延伸对象
       (command "-style" "standard" "宋体" "" 1 0 "" "" )   ;设置字体
      (command "units" 2 4 1 4 0 "y")               ;设置单位、0角度位置和正角度方向
      (command "_ucs" "w")
      (setq po 0)
      (setq z 2000)
      (setq po (getpoint "\n位置："))
      (setq wxtm (getint "\n倾向："))
      (setq wxqe (getint "\n倾角："))
      (setq pox (car po)
            poy (cadr po)
            pa (list (- pox (* 0.003 z)) poy)               ;走向线长
            pb (list (+ pox (* 0.003 z)) poy)               ;走向线长
            pc (list pox (+ poy (* 0.0015 z)))               ;走向线长
            textz (* 0.002 z)            ;字高
      )
      (if (and (>= wxtm 0) (< wxtm 90)) (setq tm (- 90 wxtm)))
      (if (and (>= wxtm 90) (< wxtm 180)) (setq tm (- wxtm 90)))
      (if (and (>= wxtm 180) (< wxtm 270)) (setq tm (- 270 wxtm)))
      (if (and (>= wxtm 270) (< wxtm 360)) (setq tm (- wxtm 270)))
      (setq ng (/ (* tm pi) 180)
            pd (Polar Po ng (* 0.0035 z))
            dx (- (car pd) pox)
            dy (- (cadr pd) poy)
      )
      (command "pline" pa po pc po pb "c")
      (command "_rotate" (entlast) "" po wxtm)
      (if (and (>= wxtm 0) (< wxtm 90)) (setq pd (list (+ pox dx) (+ poy dy))))
      (if (and (>= wxtm 90) (< wxtm 180)) (setq pd (list (+ pox dx) (- poy dy))))
      (if (and (>= wxtm 180) (< wxtm 270)) (setq pd (list (- pox dx) (- poy dy))))
      (if (and (>= wxtm 270) (< wxtm 360)) (setq pd (list (- pox dx) (+ poy dy))))
      (command "text" "j" "m" pd textz 0 wxqe)                           ;显示文字
      (setvar "osmode" 35)
      (setvar "celweight" 25)          ;设置新实体的宽度为0.25
      (command "_ucs" "p")
       (princ)
)
                 (prompt "<<画产状>>启动命令:mcz")
                    (princ)

风流少年时

恐龙你搞地质的吗

caogis

我是地质的，但我不会编程

hehaidizhi

程序有错误啊

紫☆川☆秀

程序出现错误：

请回答“是”或“否”。
是否垂直? <N> *取消*

VBALISPER

风流少年时 发表于 2014-12-7 21:58
恐龙你搞地质的吗

是的。我是搞地质的。

song宋_74729

恐龙你搞地质的吗