[LISP程序]：好用的lsp小程序二

sanggj

cad块炸不开破解程序

duely

第一个的确很好用！

hksunnye

我认为第二个很好用！

cooldream

我加载了，可以用，但为什么里面都是乱麻呢？
AutoCAD PROTECTED LISP file
zA筍梭巒╭,??鈖$瀸謗E(劵?蔢a;簚苭!濎?憻?撪;宫憟⑨bg摹'+0D?&%$-)r贪k鐾?M瞵y瀇坌?5n?脉濺钳x脸G牍'g缗玾掐楨?免?F?0 !1M??Q俙?{邧'n?心龏5`?j鼭R综置洮y瀇坌乷?V?N糦欶椐>\条巗匹`嗟k窺务哻秭顼?苁駟a舛&?s讍'D?>T菡媍?A?箜?厅峧魥p?R请??J鐮"d镱睇扠忪鹑?汣飨砗,;V?u橽蹢$x心缁^?<P勇駫n?
4@猽楶末a扉?矴?F?岳髣)z逎8e畗妡褍5D竂?R宩?_濶龝L竃亚?焇响?<_?n?N礏璔?)7t?C纭$h鴴A鹆?M鯃1E縉?V貥8P坸?h禊朙鰥5S撒膬'n魵P载慒淼8X?K鱽d棂贀W钳m糍?(p蓹o?w伍?q颅v厅榑贀T升?        c?h眓籈獇衼+y已码癆驅0@盵?v泞O綰僦俾?9 c羯籜怳所? n祓葲汣飨?F忮沩麛@騿?^咧哕?
4@髠q?z楾骗s突j眓鼧]哐?r摹3A旌\睧?Z严?v剃?雪z?请?s?\岳锖,p蓹慛駛k睧?A沐膈?^像薀_勖鐾锍j袅╭朅纭c詈T捃朔M臧O髠q噠貥8P坆?s?\楤鬓?o裕o?F鶟B鳠S像唦軕
C榫A旖[擧鉅 b潆睪?2M?*'+"5J喹> k鰴_圪?y梉类矴?7Q销乫綺?%@爄?m禡榻[砒括[?`钑n歚?9H裏V咚稧??w?1?q?v塯缗?崀坄啖(4e?汣饊s漂<N鶒I??2D?
v歍跁        q弡揇喈迧2n?心龏5P佩腌骓?蹮O於 p?0<?恢詝 ?敎?坑萈??齙?p蓹o?w晤甽?莉俙碄℡?'&%&)r抬o鰹N饎g?&l?y蹢$h鹕啶=6P?!1y焃擹蔷]?Q╭颅(5M?N桉蓑媍?8P由篭睧獇塿楡?<X楻荔千./-5        2C禡?W?e馈c罹J痣飨縒?@蹇_渦?W?@?&%$-){叩K禡睲??&n漣?+v凝欸悫x俟S?r踏i?P骺0,
N斟?W?L魛o?!k軝$`?已?P飺~?y袌1J啾w?籢?b溟??/*t势蓣?C?嚅?|慚?I?$`杈0@燼犏缺x袃K唏?麇膑峡_?9R流辖:&<Q╭楼k雠?若?d無憃嘋涎骘鲧?邿;V社稞?|?W鄤+羯矴畗見(p?逕l圿螬5`噌沌媲?逎U僮戍釉钳,+g缗玾未c骓蝻??鰧u弇畗抑倭酄5J?註kw[r2誨徑蛖9?懷w\?1捣??v袒W?妟?*8D╟?謩 J碅駟y刪?璨t峹榐?Y咣移澶`实C鰺P碗??醰(喖恫??嵞?摆GZ肺(槃蚅D;襬2M?迺[泥?X楥驃f飙7x袚<Q?d棂僽僫盝?_信?u巘汣?
1f?
輎?轅5売?輡NT??V佥汿?H??~軝W锣?$;v弤?@茏xRv颗琢H#尐勨rY}?枟尩?孤PKX獉??
=p馈c町8y艺邘=R免?I麢G???鑚l.?H%愺\t嬋XKR联o??
=p馈c町8y阴?D?)&<G嗟K?惮?\急瀳?崱尙潌蔨E<瑠骋aw銃
??賚m???s蠒6L?A鰷B鹨?!':g?6L?<虯Jij" (?斪c3譸)潕?秭讔2M?"d嗖 t?G糦歍脐?h?再墙R畗跁6L窺俤?弤払璐I獗R剏?W?蚺玾谓[朙竃?_?(p馈c骓?谓S?C綧碮?捃機秭膬'n?玾蔚D纰5"^w溮硠冀莀罥U        ╭括[?h?p?s蠒6D鴥h?b潆v<Q╭楼c?#4C驐L鶉/|?,!b?w?軧6幷V?鑝
? :T?B鰴\朔<J碵?  `琛1x? ( 2i糲镤?
4h鹨灵贈G鼥@饡44?L5??慷???鮃Iy8斸(=U偾O*瀯趘_?7躘wQ钚Sｆ`aoS?J?`?\?z殧劏黊洑喣0?狈诽5???Z兴W矗?焸??=蝗"埩qC+鰾%鏽q括[?m髀▅諉 m髀▅諉 m髀▅諉 m髀▅諉 m髀▅諉

pandoit

总的说来还是比较方便的，要是能写在图上就更方便了

whunter

用好cad就不错了,这些工具我好像用不着

beijingtuzi

只要贴出来有用处的就是好东西,呵呵

David Li

我能在Autocad2004英文版中加载并使用,但不能打开编辑,全是乱码

qiankuncq

可以用的，目前。

David Li

能提供未加密的源程序代码吗?
也许可以进一步完善嘛

delphi21

支持！希望大家多能提供好的东西！谢谢了！

PFD8667

很实用,角度测量能定为度、分、秒就更好了

zhuquanmao

■管他 下载先说 反正免币 呵呵■
原代码如下：
;; mdist 为选定的直线、圆弧和样条曲线自动计算曲线全长。
(defun tlines ()
  (setq lbeg (cdr (assoc '10 ent)))
  (setq lend (cdr (assoc '11 ent)))
  (setq llen (distance lbeg lend))
  (setq tlen (+ tlen llen))
  (ssdel sn ss1)
)

(defun tarcs ()
(setq cen (cdr (assoc '10 ent)))
(setq rad (cdr (assoc '40 ent)))
(setq dia (* rad 2.0))
(setq circ (* (* rad pi) 2.0))
(setq sang (cdr (assoc '50 ent)))
(setq eang (cdr (assoc '51 ent)))
(if (< eang sang)
  (setq eang (+ eang (* pi 2.0)))
)
(setq tang (- eang sang))
(setq tang2 (* (/ tang pi) 180.0))
(setq circ2 (/ tang2 360.0))
(setq alen (* circ2 circ))
(setq tlen (+ tlen alen))
(princ)
(ssdel sn ss1)
)

(defun tplines ()
(command "area" "e" sn)
(setq tlen (+ tlen (getvar "perimeter")))
(ssdel sn ss1)
)

(defun tsplines ()
(command "area" "e" sn)
(setq tlen (+ tlen (getvar "perimeter")))
(ssdel sn ss1)
)

(DEFUN C:mdist (/ tlen ss1 sn sn2 et)
(setq cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq tlen 0)  
(prompt "\n挑选存在的实体，测量其总长: ")
(setq ss1 (ssget))
(while (> (sslength ss1) 0)
  (setq sn (ssname ss1 0))
  (setq ent (entget sn))
  (setq et (cdr (assoc '0 ent)))
  (cond
   ((= et "LINE") (tlines))
   ((= et "ARC") (tarcs))
   ((= et "LWPOLYLINE") (tplines))
   ((= et "POLYLINE") (tplines))
   ((= et "SPLINE") (tsplines))
   ((or
     (/= et "LINE")
     (/= et "ARC")
     (/= et "LWPOLYLINE")
     (/= et "POLYLINE")
     (/= et "SPLINE")
    )
    (ssdel sn ss1)
   )
  )
)
(alert (strcat "\n挑选的直线、多线段或圆弧的总长是: " (rtos tlen 2 2)))
(setvar "cmdecho" cmdecho)
(prompt"挑选的直线、多线段或圆弧等的总长是:")
(princ (rtos tlen 2 2))
(princ)
);;end of mdist

;;3dj 由已知三点来求角度
(defun c:3dj()
   (alert (strcat "\n注意：\n顺时针方向为负，逆时针为正 "))
   (setq pt1 (getpoint "\n第一个点(第一条边上的点):" )  )
   (setq Pt2 (getpoint "\n角点(即三点组合的角所对应的点或两条边的夹角):"))
   (setq pt3 (getpoint "\n第三个点(第二条边上的点):"))
   (setq a2 (angle pt3 pt2)
         a1 (angle pt1 pt2)
         a (- a2 a1)
         a (* 180.0 (/ a pi))
   )
  (prompt "\n所测三点的夹角是： ")
  (print a)
  (prompt "°")
   (alert (strcat "\nby zzy\n所测三点的夹角是: " (rtos a 2 2)))
  (princ)
)
(princ);end of 3dj
(prompt "\n…………成功加载，请输入mdist来使用长度测量程序…………")
(prompt "\n…………成功加载，请输入3dj来使用角度测量程序…………")
;;---------------------------------------

穹心

好东西！

cccccxxx

太好了！谢谢！希望多发