空谷藏 发表于 2013-7-5 10:50:59

求画短线lsp，自己不会只能求人了啊，谢谢各位大神

求lsp，很简单就是以鼠标点击为中点画一个长200的短线，成45度角，就像标注的那个短线一样，谢了

Andyhon 发表于 2013-7-5 11:07:38

http://bbs.mjtd.com/thread-100603-1-1.html
4、... 若发帖者的目的仅仅是为求编写程序，则请到论坛“编程申请”板块发帖，不得在本版发布悬赏求程序贴，违反者版主有权予以警告，并将帖子转移到编程申请板块。

空谷藏 发表于 2013-7-5 11:10:22

Andyhon 发表于 2013-7-5 11:07 static/image/common/back.gif
http://bbs.mjtd.com/thread-100603-1-1.html
4、... 若发帖者的目的仅仅是为求编写程序，则请到论坛“编程 ...

怎么转移啊

ll_j 发表于 2013-7-5 11:33:39

如果是想学习Lisp，这个题目不妨练手，如果是求程序，好像太不值得了吧？直接画很费功夫么？是不是很多？如果是，那就拷贝。

空谷藏 发表于 2013-7-5 15:14:43

(defun c:dx (/ P0 p1 p2)
(setq P0 (getpoint))

(setq p1 (list (+ (car p0) 50) (+ (cadr p0) 50)))
(setq p2 (list (- (car p0) 50) (- (cadr p0) 50)))
(command "pline" p1 "w" "20" "20"p2 "")
)
自己搞定了，谢谢
页: [1]
查看完整版本: 求画短线lsp，自己不会只能求人了啊，谢谢各位大神