WWYYBB1015 发表于 2020-5-5 15:17:32

好久没发贴了 做了一个画云线的 分享给大家

代码比较少 但是感觉还是挺实用的
(defun c:red (/ *error* echo osmL)
(vl-load-com)
(defun *error* (msg)
    (setvar "cmdecho" echo)
    (setvar "osmode" osm)

    (princ "错误: ")
    (princ msg)
    (princ)
)

(setq echo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)

(if (= sc nil)
    (setq sc 1.0)
)
(princ (strcat "\n输入图框比例<" (rtos sc) ">: "))
(setq a (getreal))
(if (= a nil)
    (setq a sc)
)

(setq sc a)
(setq L (* 3 a))

(vl-cmdf "rectang"
           (setq pt1 (getpoint "\n指定第一个角点"))
           (getcorner pt1 "\n指定另一个角点")
)
(command "revcloud" "a" L L "" (entlast) "")
(setvar "cmdecho" echo)
(setvar "osmode" osm)
(princ)
)

小小的人 发表于 2020-6-13 00:40:36

WWYYBB1015 发表于 2020-6-12 18:10
那就要比月份了 我不允许你说95后老

哈哈不服老不行的   出去经常被人叫阿姨了

WWYYBB1015 发表于 2020-6-14 23:56:13

小小的人 发表于 2020-6-13 00:40
哈哈不服老不行的   出去经常被人叫阿姨了

可以交个朋友吗 one81154414four

WWYYBB1015 发表于 2020-6-12 18:10:01

小小的人 发表于 2020-6-9 20:28
也是   现在我这个95后出去都显老了

那就要比月份了 我不允许你说95后老

bai2000 发表于 2020-5-5 18:06:09

最好改为：选取图库，自动获取比例

WWYYBB1015 发表于 2020-5-5 19:35:00

bai2000 发表于 2020-5-5 18:06
最好改为：选取图库，自动获取比例

这个自己可以试试 大的框架在这里 自己稍微改一改就可以了

小小的人 发表于 2020-5-18 20:24:22

非常感谢哥哥的分享   太好了

WWYYBB1015 发表于 2020-6-9 18:05:51

小小的人 发表于 2020-5-18 20:24
非常感谢哥哥的分享   太好了

可能是弟弟哟

小小的人 发表于 2020-6-9 20:28:07

WWYYBB1015 发表于 2020-6-9 18:05
可能是弟弟哟

也是   现在我这个95后出去都显老了

sky-x-x 发表于 2023-6-19 21:23:31

感谢分享了，谢谢
页: [1] 2
查看完整版本: 好久没发贴了 做了一个画云线的 分享给大家