Visual Lisp
Qin-Dong
这个作者很懒,什么都没留下…
展开
-
Visual Lisp代码片断:生成文本对象
;用法:(EntMakeText 点X 点Y 文本内容 文本高度 颜色 层名)(defun EntMakeText (px py str tHeight styleName layerName / pt) (setq pt (list px py)) (entmakeX (list '(0 . "TEXT") (cons 1 str) (cons 10 p...原创 2018-05-21 09:03:27 · 779 阅读 · 0 评论 -
Visual Lisp代码片断:生成直线对象
;用法:(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名)(defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2) (setq p1 (list xa ya) p2 (list xb yb)) (entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 ...原创 2018-05-21 09:04:50 · 640 阅读 · 0 评论 -
Auto\Visual LISP代码片断-创建对象
Auto\Visual LISP代码片断-创建对象创建直线对象创建多义线对象创建直线对象;用法:(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名)(defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2) (setq p1 (list xa ya) p2 (list xb yb)) (entmakeX (l...原创 2019-06-02 10:02:41 · 1405 阅读 · 0 评论