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

WWYYBB1015

代码比较少 但是感觉还是挺实用的
(defun c:red (/ *error* echo osm  L)
  (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)
)

小小的人

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

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

WWYYBB1015

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

可以交个朋友吗 one81154414four

WWYYBB1015

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

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

bai2000

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

WWYYBB1015

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

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

小小的人

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

WWYYBB1015

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

可能是弟弟哟

小小的人

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

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

sky-x-x

感谢分享了，谢谢