总面积lisp
我有这个总面积Lisp程序;GetArea.lsp - Total the areas of selected polyline entities.
(defun C:GetArea()
;turn off the system echo
(setvar "cmdecho" 0)
;set up a variable to hold the accumulated areas
(setq myArea 0)
;while the user keeps making a selection
(while(setq ent(entsel))
;if an entity was selected and not a point in space
(if(car ent)
(progn
;let AutoCAD get the area of the object...cheap yet effective way out...
;Note: AutoCAD stores the area in the system variable "Area"
(command "area" "Object" (car ent))
;print the area to the command line
(princ (strcat "\n Area = " (rtos (getvar "Area") 2 2)" sq.m"))
;accumulate the area if it exist
(if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
)
)
)
;ask for a text insertion point
(setq pt1(getpoint "\n insert point: "))
;print the area in the drawing
(command "text" pt1 "" "" (strcat "Area = "(rtos myArea 2 2)"sq.m"))
;suppress the last echo
(princ)
)
我需要添加一个命令来更改文本大小。 你从哪里得到这个LISP的，你应该列出来源。
使用“entmake”而不是“text”命令。添加提示以询问文本高度，另存为变量，并添加到entmake。
演示如何添加命令，如有必要，我可以帮助您完成。
这毕竟是CADTutor 我不认识lisp，所以你能做到吗。。。
谢谢 通常，当“借用”其他人创建的lisp例程以在代码顶部确认作者时。这被认为是一件光荣的事。
你没有写“我需要添加一个命令…”？您没有询问有关如何或在何处添加命令的建议。
您将再次听到代码发布指南。不要说我没有警告你。 它看起来非常类似于Jeffery P Sanders lisp，并且似乎采用了当前的文本高度。因此，您所要做的就是在图形中以所需的高度绘制一些文本，然后启动lisp。
这绝对是杰夫在这里看到的http://www.jefferypsanders.com/autolisp_examp.html#GetArea.lsp
可怜的家伙没有本地化他的变量虽然。。。
你肯定不想学任何东西，但我会尝试教你，而不是直接给出答案。
以下行是创建文本的行：
(command "text" pt1 "" "" (strcat "Area = "(rtos myArea 2 2)"sq.m"))
“pt1”后的双引号是文本命令中要求提供所需比例的点。如果你想要一个固定的比例，那么我就把数字放在那里。如果没有，如前所述，您应该用
或者另一种获取数字的代码。他们把那个变量放在那个位置。
祝你好运
甚至没有尝试？
我有一个你正在寻找的工作版本，真的不介意帮助。我给了一个起点，至少你能做的就是努力。
我不认识作者。我这几年Lisp程序 我试过了，但不起作用。。。。。
;GetArea.lsp - Total the areas of selected polyline entities.
(defun C:GetArea2 (ht scl)
;turn off the system echo
(setvar "cmdecho" 0)
;set up a variable to hold the accumulated areas
(setq myArea 0)
;while the user keeps making a selection
(while(setq ent(entsel))
;if an entity was selected and not a point in space
(if(car ent)
(progn
;let AutoCAD get the area of the object...cheap yet effective way out...
;Note: AutoCAD stores the area in the system variable "Area"
(command "area" "Object" (car ent))
;print the area to the command line
(princ (strcat "\n Ε = " (rtos (getvar "Area") 2 2)" sq.m"))
;accumulate the area if it exist
(if (getvar "Area")(setq myArea(+ myArea (getvar "Area"))))
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq scl(/ (getreal"\n give scale (100,200,500,etc) : ") 100))
(setq ht(* 0.175 scl))
;ask for a text insertion point
(setq pt1(getpoint "\n insert point: "))
;print the area in the drawing
(command "text" pt1 "" "" (strcat "E = "(rtos myArea 2 2)"sq.m"))
;suppress the last echo
(princ)
)
页:
[1]
2