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

song宋_74729

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

3明经币

song宋_74729

永不言弃 发表于 2016-2-20 15:36
是这样吗

没错 大哥能提供源码吗

永不言弃

是这样吗

永不言弃

song宋_74729 发表于 2016-2-20 16:34
沒錯 大哥能提供源碼嗎

是伪源码，要另一个工具的支持
更多插件请加群或云盘下载
http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19
QQ群： 208388011

视频网盘
https://yunpan.cn/cxxbsasRFynjQ  访问密码 0742

2. (defun c:tt ()
   
3.   ;;高程修改成文字注记
   
4.   (vl-load-com)
   
5.   (setq fwsz (list "1" "2" "5" "10" "15" "20" "25"))
   
6.   (setq
   
7.     fwzz (atof
   
8.      (xlr_dcl_textlst "文字高度设置" "文字高度" "2" fwsz)
   
9.    )
   
10.   )
    
11.   (setq ss (ssget (list (cons 0 "INSERT"))))
    
12.   (setq k -1)
    
13.   (repeat (sslength ss)
    
14.     (setq ent (ssname ss (setq k (1+ k))))
    
15.     (setq xyz (cdr (assoc 10 (entget ent))))
    
16.     (setq zgc (rtos (nth 2 xyz) 2 1))
    
17.     (setq txlst (xlr_textfg zgc "."))
    
18.     (if (= (length txlst) 2)
    
19.       (progn
    
20.   (command "TEXT" "J" "BR" xyz fwzz 0 (nth 0 txlst))
    
21.   (command "TEXT" "J" "ML" xyz fwzz 0 (nth 1 txlst))
    
22.   )
    
23.       (progn
    
24.   (command "TEXT" "J" "BR" xyz fwzz 0 (nth 0 txlst))
    
25.   )
    
26.       )
    
27.   )
    
28. )

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

song宋_74729

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

song宋_74729

期待高手帮忙解决

song宋_74729

寻求高手解决问题 谢谢

kozmosovia

(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

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

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

kozmosovia

也没几行代码，算了