论坛 › 开源函数库 › 绘制UCS下矩形(可带圆角)

st788796 发表于 2016-5-14 11:09:10

绘制UCS下矩形(可带圆角)

本帖最后由 st788796 于 2016-5-14 11:11 编辑

**** Hidden Message *****测试
(defun c:tt (/ p1 p2 d)
(if (and (setq p1 (getpoint "\nfirst corner: "))
         (setq p2 ((if (zerop (getvar "worlducs"))
                     getpoint
                     getcorner
                     )
                      p1
                      "\nOrther corner: "
                  )
         )
         (setq d (getdist p1 "\nRadius: "))
      )
    (xd::rectang:make p1 p2 d)
)
(princ)
)

whdong76 发表于 2016-5-14 11:39:55

看一下......

st788796 发表于 2016-5-14 11:40:58

使用命令最简单
(vl-cmdf ".rectang" "F" r p1 p2)
适合 UCS

lucas3 发表于 2016-5-14 12:02:49

ＳＴ大师，我已经改好了，　没想到你重写了一个，是用ＸＤＡＰＩ的吗

st788796 发表于 2016-5-14 12:40:26

先用a/vlisp写的，发布xdrxapi版本

liuyj 发表于 2016-5-14 16:54:45

st788796 发表于 2016-5-14 11:40
使用命令最简单
(vl-cmdf ".rectang" "F" r p1 p2)
适合 UCS

这个写法最好，什么也不依赖

/db_自贡黄明儒_ 发表于 2016-5-15 21:56:47

低版本好像不能倒圆角

1993063 发表于 2016-5-17 14:29:01

看看 学习一下

wangxf888 发表于 2016-5-24 14:57:51

还真没注意rec的这个f参数:D

炫翔 发表于 2017-6-18 19:25:11

回复学习

yoyoho 发表于 2017-6-19 14:14:52

学习一下！

winerfjy 发表于 2017-6-23 08:59:45

回帖看内容

qhdycm2016 发表于 2017-7-13 10:16:12

我来测试一下，行不行

liulisheng 发表于 2017-8-29 17:58:45

{:1_12:}{:1_12:}{:1_12:}{:1_7:}{:1_7:}{:1_7:}{:1_7:}{:1_7:}

lifei1979 发表于 2017-9-1 09:20:39

看一下......

查看完整版本: 绘制UCS下矩形(可带圆角)