社区 › AutoLISP/Visual LISP 编程技术 › 标准化标注源码解析与测试（支持UCS，智能标注样式）

简单の:） 发表于 2014-6-5 09:39:23

,谢谢分享

tranney 发表于 2014-6-14 03:50:34

哥，代码整到一起啊，这样有点混乱的感觉

林霄云 发表于 2014-6-17 13:26:30

变量设置中，宜增加（setvar 'DIMPOST "."）;取消前后缀，感谢q2老大提供系统变量名。

matador99bb 发表于 2014-7-15 16:15:32

很不错！！！！

我爱lisp 发表于 2014-10-14 21:51:58

楼主太懒，整理整理不行吗

rhett_sky 发表于 2015-1-17 17:48:21

得懂点代码的人才能改对啊

rhett_sky 发表于 2015-1-17 17:49:30

no function definition: OFFSET_POINT

改对了，还是缺函数啊。

rhett_sky 发表于 2015-1-17 18:18:57

(defun offset_point(pt x y x-ang / pt1 pt2 )
;Designed by 林霄云 2014年4月20日
;点偏移。x y 平移量，x-ang 基准线弧度
(setq pt1 (polar pt x-ang x))
(setq pt2 (polar pt1 (+ x-ang (* 0.5 pi)) y))
pt2
)
从楼主别的程序中找到的，不容易啊，楼主。

jyzas 发表于 2015-6-12 08:58:24

支持下

l67844260 发表于 2015-7-23 11:56:42

好东西啊                        

查看完整版本: 标准化标注源码解析与测试（支持UCS，智能标注样式）