求写一个矩形画叉插件

烟盒迷唇

或者把组码6的线型样式改成你需要的

ajunseo

烟盒迷唇 发表于 2021-6-20 19:18
你的CAD有问题吧，我都测试过了没问题

我用了两台电脑，两个版本，好像是不行！

ajunseo

烟盒迷唇 发表于 2021-6-20 19:18
你的CAD有问题吧，我都测试过了没问题

可以了，刚开始没有加载线型！

ajunseo

烟盒迷唇 发表于 2021-6-20 19:18
你的CAD有问题吧，我都测试过了没问题

感谢，是我需要的效果！

xj6019

ajunseo 发表于 2021-6-20 18:34
输入命令后，显示参数太少呢！

怎么会   你咋用的，你是点的矩形吗，我试了 没问题呀

xj6019

烟盒迷唇 发表于 2021-6-20 11:43
(defun c:tt (/ p1 p2 p3 p4)
        (setq p1 (getpoint "\n矩形插入点：")
                p3 (getpoint p1 "\n对角点：") ...

我画出来也只是个矩形呢  没对角线

ajunseo

烟盒迷唇 发表于 2021-6-20 19:19
或者把组码6的线型样式改成你需要的

是可以了，但我重新加载后，提示，错误：输入中的点位置不正确！一开始还好好的！

xj6019

烟盒迷唇 发表于 2021-6-20 11:43
(defun c:tt (/ p1 p2 p3 p4)
        (setq p1 (getpoint "\n矩形插入点：")
                p3 (getpoint p1 "\n对角点：") ...

明白了   是因为cad文件内没有DASHED这个线型  要先有线型才可以，我换成其他线型 ，没问题了，我感觉看着代码没问题  就是画不出来，我还纳闷了很久

烟盒迷唇

xj6019 发表于 2021-6-20 19:36
我画出来也只是个矩形呢  没对角线

组码6的线型你没加载吧

烟盒迷唇

ajunseo 发表于 2021-6-20 19:41
是可以了，但我重新加载后，提示，错误：输入中的点位置不正确！一开始还好好的！

那不懂你了，很简单的一个代码，硬是搞得画不了