song宋_74729 发表于 2016-2-20 08:20:24

请教高手 水深点变成海图水深

本帖最后由 song宋_74729 于 2022-8-7 20:14 编辑

SSA水深点变成SSB海图水深,希望高手能用LSP源码 并可设定文本大小 感谢...或能展点成ssb.dwg也行,悬赏3明经币

song宋_74729 发表于 2016-2-20 16:34:19

本帖最后由 song宋_74729 于 2022-8-7 20:15 编辑

永不言弃 发表于 2016-2-20 15:36 static/image/common/back.gif
是这样吗
没错 大哥能提供源码吗

永不言弃 发表于 2016-2-20 15:36:09


是这样吗

永不言弃 发表于 2016-2-20 17:29:28

本帖最后由 永不言弃 于 2016-2-20 17:35 编辑

song宋_74729 发表于 2016-2-20 16:34 static/image/common/back.gif
沒錯 大哥能提供源碼嗎
是伪源码，要另一个工具的支持
更多插件请加群或云盘下载
http://yunpan.cn/c3iAVqYptpwj9访问密码 cc19
QQ群： 208388011

视频网盘
https://yunpan.cn/cxxbsasRFynjQ访问密码 0742(defun c:tt ()
;;高程修改成文字注记
(vl-load-com)
(setq fwsz (list "1" "2" "5" "10" "15" "20" "25"))
(setq
    fwzz (atof
   (xlr_dcl_textlst "文字高度设置" "文字高度" "2" fwsz)
   )
)
(setq ss (ssget (list (cons 0 "INSERT"))))
(setq k -1)
(repeat (sslength ss)
    (setq ent (ssname ss (setq k (1+ k))))
    (setq xyz (cdr (assoc 10 (entget ent))))
    (setq zgc (rtos (nth 2 xyz) 2 1))
    (setq txlst (xlr_textfg zgc "."))
    (if (= (length txlst) 2)
      (progn
(command "TEXT" "J" "BR" xyz fwzz 0 (nth 0 txlst))
(command "TEXT" "J" "ML" xyz fwzz 0 (nth 1 txlst))
)
      (progn
(command "TEXT" "J" "BR" xyz fwzz 0 (nth 0 txlst))
)
      )
)
)

song宋_74729 发表于 2016-2-20 18:08:40

本帖最后由 song宋_74729 于 2022-8-7 20:16 编辑

能够LSP源码完成,不需要经过工具 谢谢大哥

song宋_74729 发表于 2016-2-21 21:43:42

本帖最后由 song宋_74729 于 2022-8-7 20:16 编辑

期待高手帮忙解决

song宋_74729 发表于 2016-2-22 19:29:40

本帖最后由 song宋_74729 于 2022-8-7 20:15 编辑

寻求高手解决问题 谢谢

kozmosovia 发表于 2016-2-22 20:35:06

(Defun C:ABC (/ AA BB K OS PO SS TH ZZ)
(vl-load-com)
(if (null (setq th (getdist "\n × <2>:")))
    (setq th 2.0)
)
(setq        k-1
        ss (ssget (list (cons 0 "INSERT")))
        os (getvar "osmode")
        po (setvar "osmode" 0)
)
(repeat (sslength ss)
    (setq po (cdr (assoc 10 (entget (ssname ss (setq k (1+ k))))))
          zz (rtos (caddr po) 2 1)
          aa (substr zz 1 (- (strlen zz) 2))
          bb (substr zz (strlen zz))
    )
    (command "TEXT" "J" "BR" po th 0 aa)
    (if        (/= bb "0")
      (command "TEXT" "J" "ML" po th 0 bb)
    )
)
(setvar "osmode" os)
)

song宋_74729 发表于 2016-2-22 20:52:14

kozmosovia 发表于 2016-2-22 20:35 static/image/common/back.gif
(Defun C:ABC (/ AA BB K OS PO SS TH ZZ)
(vl-load-com)
(if (null (setq th (getdist "\n × :"))) ...

我如何給你三明經幣 謝謝大哥

kozmosovia 发表于 2016-2-22 21:34:59

也没几行代码，算了
页: [1] 2
查看完整版本: 请教高手 水深点变成海图水深