77问答网
所有问题
当前搜索:
autocadlisp编程代码
求
CAD
加开图层
LISP
答:
;;打开指定图层
lisp
(defun c:tes ( / lay lays obj TC_ss tc1)(vl-load-com)(setq TC_ss '() lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))(vlax-for obj lays (setq TC_ss (cons (vla-get-Name obj) TC_ss));提取所有图层 )(setq TC_ss (mapcar...
求一个
cad lisp
命令!
答:
图层锁定或解锁,
代码
如下。;图层锁定及解锁(defun c:tes ( / ent lay1) (vl-load-com) (while (and (setq ent (entsel "\n请选择要锁定或解锁的图元")) (setq lay1 (cdr (assoc 8 (entget (car ent))) (w1712251 lay1) ) (princ))(defun w1712251 (lay1 / lay lay1) (vl...
cad lisp程序
答:
(setq Pt1 (getpoint "\n指定第一点:"))(setq Pt2 (getpoint "\n指定下一点:"))(setq Pt (list (/ (+ (car Pt1) (car Pt2)) 2) (/ (+ (cadr Pt1) (cadr Pt2)) 2) (/ (+ (
cad
dr Pt1) (caddr Pt2)) 2)))(command "._Line" Pt1 Pt2 "")(setq EntLine (e...
AUTOCAD
中利用
lisp
怎么画出矩形,要求:默认输入为矩形的左下点,左上点...
答:
由于是矩形,输入对角点就可以。另外两点就可以计算出来。auto
lisp代码
如下:(defun c:tes ( / &p1 &p2 &p3 &p4 &ss1 x) (if (and (setq &p1 (getpoint "\n请输入第一个对角点")) (setq &p1 (trans &p1 1 0));转换坐标系 (setq &p3 (getpoint &p1 "\n请输入第二个对...
谁能帮我写个
cad
的
lisp程序
?
答:
(setq osm (getvar "osmode"))(setvar "cmdecho" 0)(command "undo" "be")(If (progn (princ "请选取矩形:")(setq ssa (ssget":S" '((0 . "lwpolyline") (90 . 4) (70 . 1)))(progn (setq dxf (entget (ssname ssa 0)))(setq pts (mapcar 'cdr (vl-remove-if '(lambda...
Autocad lisp
中帮忙写一段,可以随机产生整数的
代码
答:
赋值除数为1 (repeat @site (setq @remValue(* 10 @remValue)) );循环次数等于保留位数,如果三次则@remValue等于1000,两次100,一次10 (setq @random (rem @date @remValue));将@date保留最后若干位,赋值到@random)之后,如果要获取随机数只需要(random 1)或者(random2)、(...
CAD
的长度统计
LISP代码
是什么
答:
defun C:ZCD (/ CURVE TLEN SS N SUMLEN)(vl-load-com) (setq SUMLEN 0) (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))) (setq N 0) (repeat (sslength SS) (setq CURVE (vlax-ename->vla-object (ssname SS N))) (setq TLEN (vlax...
autocad
中
lisp程序
,图形中框选之后如何采集插入块的信息?用selection函 ...
答:
(while (= nil ent1)(setq ent1 (car (entsel "\n数据源块:"))) ;;;取其中 一个块 (while (= nil ent2)(setq ent2 (car (entsel "\n需要被一致的块:"))) ;;;取其中另一个块 (setq n (length (vlax-safearray->list (vlax-variant-value (vlax-invoke-method (vlax-ename...
关于
CAD lisp
的,怎么能让它框选,和多选。
答:
可以用反应器实现,前提是画线和输入文字必须用定义的函数一次性操作完成.
LISP代码
如下:(VL-Load-Com)(defun c:Line_Txt(/ Pt Pt1 Pt2 EntLine HandTxt VlaObj Tmp)(setq Pt1 (getpoint "\n指定第一点:"))(setq Pt2 (getpoint "\n指定下一点:"))(setq Pt (list (/ (+ (car Pt1...
求
CAD lisp 程序
,选择一条或多条多段线,输出其上点的x,y,z坐标。_百 ...
答:
复制下面的脚本到命令行回车即可加载,输入pldd,
程序
会提示选择pline,选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent)(setq ent (car (entsel "\n请选择PLINE")))(setq wb (entget ent) cc nil bhbz (cdr (assoc 70 wb)) )(cond ((= (cdr (...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
cad的lisp插件怎么编写
用AutoCADLISP语言编程绘图
cad lisp编程
autocadlisp程序100例
cad的lisp程序调用
cad如何自己编写插件
cad的lisp程序100例
cad的lisp程序大集合
cad的lisp命令