weiqi 发表于 2012-11-22 17:50:31

新手 发个测量长度 并 CTRL+V 源码

本帖最后由 weiqi 于 2012-11-22 17:55 编辑

测量长度 并 CTRL+V输出~~~~适和 CAD 加EXCEL 手算 工程量用法命令CD

(print "测量长度 运行命令cd,输出ctrl+v ")    ;;;功能：向系统剪贴板写入文字
(vl-load-com)
(defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
(and (= (type STR) 'STR)
       (setq HTML (vlax-create-object "htmlfile"))
       (setq RESULT (vlax-invoke
                      (vlax-get      (vlax-get HTML 'PARENTWINDOW)
                              'CLIPBOARDDATA
                      )
                      'SETDATA
                      "Text"
                      STR
                  )
       )
       (vlax-release-object HTML)
)
)



;****************************************************CD测量长度
(defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)
(setvar "osmode" os)
(print "结果等于")
(print sum)

(setq a (/ sum 1000))


(setq b (rtos a 2 2))
(setq c b)


(print (strcat c "米"))

(setq txtcon b)

(ZML-CLIP-SETSTRING txtcon)



(princ)
)






新手学习 LISP 望高手指教。。。
以yjr111为榜样~~向Y神学习。

weiqi 发表于 2012-11-24 00:01:02

自己改过的拜托。你哪看到的呢。改到直接 CTRL+V输出

清风明月名字 发表于 2013-6-29 10:39:51

谢谢楼主的分享！很有用啊。

kx820506 发表于 2014-3-8 23:21:50

很好的程序，谢谢了

debugchen 发表于 2014-5-4 11:06:53

谢谢楼主的分享！

daily6 发表于 2014-5-5 10:41:10

很好，谢谢分享

程咬金 发表于 2014-5-9 00:21:24

又省了一道工序

664571221 发表于 2016-3-29 20:28:20

好东西呵呵呵呵呵呵

ketxu 发表于 2019-12-19 23:14:41

It not suite with Unocode Character :(

CAD小神 发表于 2020-5-29 16:23:57

为什么没什么用啊？有大佬知道吗
页: [1]
查看完整版本: 新手 发个测量长度 并 CTRL+V 源码