CAD二次开发入门教程

CAD阵列工具的优化。 阵列以命令行的形式运行 -ar 输入命令选择对象环形/矩形中心点总数角度是否旋转 选择对象函数ssget (saget)

CAD二次开发入门

• 第一节
  • autolispVLIDE进入编译器 括号必须是英文的 括号必须要匹配 command。后门跟双引号PAUSE暂停让用户操f作 (command"LINE"pause pause "")
  • (defun c:LL() (command"LINE"pause pause "") )
• 第二节
  • 相切相切 (defun c:lo() (setvar"cmdecho" 0) (princ"请输入切点") (command"LINE""tan"pause "tan"pause "") (princ) )
  • cmdecho控制lisp回显1不回显0 (setvar"cmdecho" 0)修改系统参数setvar princ显示提示语 (princ 123) 中文字符要双引号英文的
  • 圆三相切 (defun c:tt() (setvar"cmdecho" 0) (princ"请输入切点") (command"CIRCLE""3p""tan"pause "tan"pause "tan"pause) (princ) )
• 第三节
  • 优化多边形命令 POLYGON边数圆心内切/外切半径 (command "POLYGON" 3 “E” pause pause） ;英文的。注释程序
  • ;外切多边形简易用法 (defun C:w3() (setvar "cmdecho" 0) (command "POLYGON" 3 pause "C"pause) (princ))
  • ;内接多边形简易用法 (defun C:n3() (setvar "cmdecho" 0) (command "POLYGON" 3 pause "i"pause) (princ))
  • ;边模式多边形简易用法 (defun C:b3() (setvar "cmdecho"0)(command "POLYGON"3 "E" pause pause) (princ))
• 第四节
  • CAD阵列工具的优化。 阵列以命令行的形式运行 -ar 输入命令选择对象环形/矩形中心点总数角度是否旋转 选择对象函数ssget (saget)
  • ;多边形简易命令 (defun C:r2()(command "-array" (ssget) """p" pause "2""360""y") (princh))
• 第五节
  • lisp。变量 变量名变量 小明5岁!查询变量 setq (setq小明5)选择集(ssget) (setq a (ssget)) (setq pt(getpoint)) (setq pt(getint)) 选择对象。ssget 捕捉点。getpoint 输入整数getint 输入实数getreal
  • (setq pt (getpoint"请指定圆心点"));让用户指定圆心点 (setq r (getreal"请输入半径”));让用户输入半径 (command "circle" pt r)
  • (defun C:TT() (setq pt1 (getpoint "请捕捉圆心点"));让用户指定圆心点 (setq pt2 (getpoint "请捕捉圆心点"));让用户指定圆心点 (command "line" pt1 pt2 "") (command "circle" pt1 5) (command "circle" pt2 5)
• 第六节
  • 外部编译器 飞诗lisp编译器2020不兼容，选择低版本 getpoint 让用户在屏幕上指定一个点 (setq pt1 (getpoint)) (setq pt2 (getpoint pt1)) (command "line" pt1 pt2 "") (command "circle" pt1 5) (command "circle" pt1 5)
• 第七节
  • lisp快速生成图层 layer 模态 非模态对话框 非模态 可编辑 模态 不可编辑
  • (command "layer ""M""中心线""C""1""""L" CENTER""""LW""0.25""""") 中心线 红色 center 0.25