jayan1210 发表于 2013-10-21 16:22:15

请问用Lisp怎么求线段端点的垂线啊~~~~~~~~

如题，用Lisp怎么求线段端点的垂线啊~~~~~~~~

Andyhon 发表于 2013-10-21 17:11:26

语意不明确呢

Try this
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Perp-Points/td-p/1485547

(defun perp (basept testpt / lastpt res)
   (setq lastpt (getvar "lastpoint"))
   (setvar "lastpoint" basept)
   (setq res (osnap testpt "qui,per"))
   (setvar "lastpoint" lastpt)
   res
)

jayan1210 发表于 2013-10-23 09:29:35

Andyhon 发表于 2013-10-21 17:11 static/image/common/back.gif
语意不明确呢

Try this


非常感谢~~我摸索出来了~
页: [1]
查看完整版本: 请问用Lisp怎么求线段端点的垂线啊~~~~~~~~