AutoCad Lsp定义说明

(defun c:c ()(command\"circle\")) 圆 (defun c:ex ()(command\"explode\")) 炸开 (defun c:cc (/ gp)(setq gp(ssget))(command\"copy\"gp\"\"\"m\")重复重复圆 ) (defun c:ee ()(command\"extend\")) 延伸 (defun c:a ()(command\"arc\")) 圆弧 (defun c:f ()(command\"fillet\")) 倒圆角 (defun c:aa ()(command\"array\")) 阵列 (defun c:ff ()(command\"offset\")) 偏移 (defun c:b ()(command\"break\")) 打断 (defun c:fs ()(command\"files\")) 打开文件

(defun c:fl ()(command\"fill\")) (defun c:d ()(command\"dist\")) 测量

(defun c:fr ()(command\"fillet\"\"r\")) (defun c:dal ()(command\"dim\"\"ali\")) 对齐线性标注

(defun c:fp ()(command\"fillet\"\"p\")) (defun c:dan ()(command\"dim\"\"ang\")) 角度标注

(defun c:dc ()(command\"dim\"\"cen\")) 圆心标注 (defun c:i ()(command\"insert\")) 插入 (defun c:li ()(command\"list\")) (defun c:dd ()(command\"ddlmodes\")) 改变图层

(defun c:de ()(command\"ddedit\")) 文字编辑 (defun c:ls ()(command\"ltscale\")) 线型比例 (defun c:dh ()(command\"dim\"\"hor\")) 水平线性标注 (defun c:mm ()(command\"mirror\")) 镜像 (defun c:dl ()(command\"dim\"\"lea\")) 引线标注 (defun c:pe ()(command\"pedit\")) 多义线编辑 (defun c:dm ()(command\"dragmode\")) (defun c:pl ()(command\"pline\")) 画多义线 (defun c:dn ()(command\"dim\"\"n\")) 改标注文字 (defun c:rg ()(command\"regen\")) 重画（刷新） (defun c:dr ()(command\"dim\"\"rot\")) (defun c:rr ()(command\"rotate\")) 旋转 (defun c:cd ()(command\"chprop\")) 倒角 (defun c:s ()(command\"line\")) 直线 (defun c:ds ()(command\"dimscale\")) 标注比例 (defun c:sc ()(command\"scale\")) 缩放 (defun c:dt ()(command\"dtext\")) 多行文字 (defun c:st ()(command\"stretch\"\"c\")) 拉伸 (defun c:di ()(command\"divide\")) 等分 (defun c:tr ()(command\"trim\")) 剪断 (defun c:dv ()(command\"dim\"\"ver\")) 垂直线性 (defun c:x ()(command\"explode\")) 炸开 (defun c:du ()(command\"dim\"\"update\")) 标注更新 (defun c:za ()(command\"zoom\"\"a\")) 全视图 (defun c:elp ()(command\"elipse\")) 椭圆 (defun c:zz ()(command\"zoom\"\"p\")) 上一个视图

(defun c:e ()(command\"erase\")) 删除

快速改变线型命令：

(defun c:g1 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"1\" \"\")) (defun c:g2 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"2\" \"\")) (defun c:g3 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"3\" \"\")) (defun c:g4 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"4\" \"\")) (defun c:g5 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"5\" \"\")) (defun c:g6 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"6\" \"\")) (defun c:g7 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"7\" \"\")) (defun c:g0 (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"0\" \"\"))

(defun c:gc (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"cen\" \"\")) (defun c:gh (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"hid\" \"\")) (defun c:ghh (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"hatch\" \"\")) (defun c:gd (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"dim\" \"\")) (defun c:gt (/ gp) (setq gp (ssget)) (command \"change\" gp \"\" \"p\" \"la\" \"text\" \"\"))