lisp画靶子 visual_求助：三点画矩形的LISP - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区

给你一个动态的

(defun c:tttt (/ os pt1 pt2 pt3 pt4 ag0 ag len ent ct in k)

(setq os (getvar "osmode"))

(while (and (setq pt1 (getpoint "\n角点1:"))

(setq ag0 (getangle pt1 "角度:"))

(progn (princ "对角点:") (setq ct t))

(progn

(setq ct t k t ent nil)

(while ct

(setq in (grread 1))

(cond

( (= 5 (car in))

(setq pt3 (cadr in))

(setq len (distance pt1 pt3) ag (angle pt1 pt3) )

(setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))

(setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))

(if ent (command "erase" ent ""))

(setvar "osmode" 0)

(command "pline" pt1 pt2 pt3 pt4 "c" )

(setvar "osmode" os)

(setq ent (entlast))

)

( (= 3 (car in))

(setq pt3 (cadr in))

(setq len (distance pt1 pt3) ag (angle pt1 pt3) )

(setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))

(setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))

(if ent (command "erase" ent ""))

(setvar "osmode" 0)

(command "pline" pt1 pt2 pt3 pt4 "c" )

(setvar "osmode" os)

(setq ent (entlast))

(setq ct nil)

)

( (equal '(11 0) in)

(if ent (command "erase" ent ""))

(setq ct nil k nil)

)

(t)

)

(setvar "osmode" os)

(princ)

)

lisp画靶子 visual_求助：三点画矩形的LISP - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

lisp画靶子 visual_基于VisualLISP的AutoCAD绘图命令的二次开发_沈良翼
2009 AutoCAD 是由美国 Autodesk 公司于 20 世纪 80 年代初为微机上应用 CAD 技术而开发的绘图程序软件包, 经过不断的完善, 现已经成为国际上广为流行的绘图工具 . ...
特别行政区界线lisp_CAD 系统变量参数大全 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 1291500406 于 2019-1-29 20:52 编辑 CAD 系统变量参数大全一.数学运算功能函数 1.1(十数值数值-)返回:累计实数或整数数值 1.2(一数值数 ...
lisp 相贯线展开_一个画两管相接相贯线的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
下面的程序也可以画管子的相贯线,输入的参数D为大管直径,d为小管直径(可以等于D),B为两管的夹角,插入点为小管中心线与大管外壁的交点.该程序在R14上调试通过. (DEFUN C:XGX () (S ...
cad数门窗的lisp_一个画中空玻璃的源码同时求加个功能 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
我有加了几根线,怎么运行不下去了,怎么要改? (defun c:blhy () (command "undo" "group") (setvar "o ...
lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
lisp 角平分线_智能中心线 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 中心线,智能 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-23 10:59 编辑感谢大家帮助 ;;编组开始;(command "_.undo" "be") (defun _ ...
lisp绘制棱锥_动态绘制示坡线 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 20060510412 于 2018-11-4 22:11 编辑 [code="lisp] ;; ;;动态示坡线 by 明经通道 QQ9034598 小蜜蜂 2013- ...
lisp文字上标源码_删除重叠文字源码 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 源码,程序 - Powered by Discuz!...
[code="lisp] (defun C:DUPREM (/ F1 SLE SA CA TA LA LB ENTA EA TYPA A1 A2 A3 A4 SC LTEST TES ) ( ...

lisp画靶子 visual_求助：三点画矩形的LISP - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

lisp画靶子 visual_求助：三点画矩形的LISP - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

最新文章

热门文章