需要一个代码来执行一些si
我刚开始使用autolisp，我试着做一些简单的事情，这给我带来了困难。如果有人能给我一个好的和有效的示例代码，它将帮助我很多。我基本上只需要偏移一个给定的矩形，其拱形顶部向外约13/32“，将新的偏移移动到其上方的某个位置（例如300”），并在一个代码中标注其宽度、高度和顶部半径。
唯一需要的用户输入是拱形矩形上的点。 我可能会采取另一种方法，要求L W H RAD并绘制两次对象，原因是你跟踪点，使变暗部分变得容易，你将pt3 pt4变暗，等等。我看到的问题是，你可以按任何顺序绘制形状，如直线和圆弧，或柱脚线，但起点在哪里？
(setq pi2 (/ pi 2.0)) ; 90 degrees
(setq pi270 (* 1.5 pi))
; pi is 180 degrees
(setq oldsnap (getvar "osmode")) ; save current snaps
(setvar "osmode" 0) ; turn off all snaps
(setq pt1 (getpoint "pick lower left"))
(setq h (getdist "\nEnter Height"))
(setq l (getdist "\nEnter width"))
(setq rad (getdist "\nenter rad "))
(setq pt2 (polar pt1 pi270 h))
(setq pt3 (polar pt2 0.0 l))
(setq pt4 (polar pt3 pi2 h)) ; make a box of 4 pts
(command "pline" pt1 pt2 pt3 pt4 "arc" "Radius" rad pt1 "") ; a pline plus arc
(setq off (getdist "\nEnter offset")) ; this can be hardcoded
(command "offset" off pt1 (polar pt1 pi270 1.0) "")
(setvar "osmode" 0)
(command "move" "Last" "" "0,0" "0,300")
;ok your turn now rework out the pt1 pt2 pt3 pt4 etc using polar with vertical and horizontal adjust and you can then dim.
(setq pt1 (polar (polar pt1 ang dist) ang dist)) ; a double polar saves need for temporary pt
问题是，我想制作一个代码，它不需要为所有这些输入，而是通过简单地选择形状的角点。我在模型空间中得到了给定的形状，我正在使用代码快速执行多个形状的任务 搜索自动尺寸标注发现，首先偏移和移动位很容易。
检查lee mac。com PolyInfoV1-3。lsp它有所有答案，只需重新读取dims的txt文件。
赛格。起点X起点Y终点X终点Y宽度1宽度2长度中心X中心Y半径
1 3984.077 1299.059 3984.077 -200.941 0.000 0.000 1500.000
2 3984.077 -200.941 6984.077 -200.941 0.000 0.000 3000.000
3 6984.077 -200.941 6984.077 1299.059 0.000 0.000 1500.000
4 6984.077 1299.059 3984.077 1299.059 0.000 0.000 3217.506 5484.077 -700.941 2500.000
页:
[1]