pengl86 发表于 2019-2-1 11:31:19

动态画直线 lisp程序


[*];画直线（45度）

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif(defun C:XX ( / gr lst pt)

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif(setq lst (entmakex;生成直线，并赋值图元名

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif            (list

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif                '(0 . "LINE")

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif               (cons 8 (getvar "CLAYER"));提取图层

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif               (cons 10 (setq pt (getpoint "\n起点")));起点

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif               (cons 11 pt);终点

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif               )

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif             )

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n到点")

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif(while (and (setq gr (grread 5)) (= (car gr) 5));为坐标时，跟踪坐标

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif   (kx-put-dxflst 11 (polar pt KX-pi-YS (distance pt (cadr gr))));动态坐标替换直线端点

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif (PRINC)

[*]http://www.cad8.net/source/plugin/imc_colorcode/images/jssc_none.gif)


wangsr 发表于 2023-10-29 10:01:35

CAD2007出错了
页: [1]
查看完整版本: 动态画直线 lisp程序