求大神帮忙写的小LSP

sbwdx1 · 发表于 2019-6-23 10:56:59

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

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

×

本帖最后由 sbwdx1 于 2019-6-23 17:28 编辑

指定图上两点，由两点中点坐标，生成构造线（生成构造线颜色为红色）麻烦各位大神了。

tzfcn · 发表于 2019-6-23 12:13:53

这个代码的功能简单，实现起来也容易。

xyccf · 发表于 2019-6-23 17:33:36

这个你用的上(entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") (cons 10 pt) (cons 11 pt1)))

huangpc27 · 发表于 2019-6-26 08:20:08

不是有人已经帮写出来了吗

azyg125 · 发表于 2019-6-26 19:50:30

(defun c:tt()
  (while (setq p1 (getpoint "第一点:")
p2 (getpoint p1 "第二点:"))
  (command "_.xline" "a" (- (/ (* 180 (angle p1 p2)) pi) 90) (mid p1 p2) "")
(command "_.chprop" (entlast) "" "c" 1 "")))
(defun mid (p1 p2)
  (mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2))

lee3737 · 发表于 2019-7-12 22:33:21

感謝 azyg125 樓主提供的程式碼

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

[求助] 求大神帮忙写的小LSP

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