[求助]：可以做这样一个lsp绘图工具吗

daidong013 · 发表于 2009-1-3 10:09:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

可以做这样一个lsp绘图工具吗

010010001 · 发表于 2009-1-5 11:30:07

这个意义不大吧可以编好LSP 后加一个CAD菜单呀

qiaqiadeng · 发表于 2009-1-5 13:26:15

太简单了，你得把条件说清楚，比如黄色的是直线还是多段线

1984wy_yq · 发表于 2009-1-8 21:39:57

新手学习

kmdz · 发表于 2009-1-9 17:39:13

你那个外框是矩形还是其它的？不过这个编出来的确没什么意义。

雄啸 · 发表于 2009-1-9 21:03:32

做块也挺方便

男人可贵 · 发表于 2009-1-11 22:02:25

是啊,直接做成块再按块名插入就行了,何必编程啊

ajing_sky · 发表于 2009-1-13 19:27:11

楼主的意思是不是在选择不同的绘线命令时，红色的线会实时的反应出来！

zl747 · 发表于 2009-1-16 11:10:08

用途不大，只是图面好看。

gotosealiu · 发表于 2009-2-6 14:10:28

应该很好编，先提取端点坐标，再进行绘制直线

fl202 · 发表于 2009-2-13 15:08:31

试试这个如何？
(defun c:chcs(/ x1 x2 x3 x4 x5 x6 lay1 )
(setvar "cmdecho" 0)
  (setq lay1 (getvar  "CLAYER"))
  (setvar "CLAYER" "设备")
  (setq x1 (getpoint "\n 请输入左上角点："))
  (setq x3 (getpoint "\n 请输入右下角点："))
  (setq dd (abs (distance x1 x3)))
  (setq x2 (polar x3 pi (abs(- (car x1) (car x3)))))
  (setq x4 (polar x3 (* pi 0.5) (abs(- (cadr x1) (cadr x3)))))
  (setq x5 (polar x3 (angle x3 x1) (* dd 0.8)))
  (setq x6 (polar x1 (* pi 1.5) (abs (/ (- (cadr x1) (cadr x3))) 2)))
  (command "line" x1 x3 ""); 绘制右斜线\
  (command "line" x2 x4 "") ; 绘制左斜线/
  (command "line" x2 x6 x4 ""); 绘制<线
  (command "line" x2 x5 x4 ""); 绘制洞口线
  (setvar "CLAYER" lay1)
  (princ)
  )

GTJ116600 · 发表于 2013-7-13 07:51:55

回复一下，看看内容

zyhandw · 发表于 2013-7-13 09:12:26

啥也看不见，应该是附件没有了

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：可以做这样一个lsp绘图工具吗

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子