请教兄弟们怎么拉伸不了？
(defun c:tt ( / p1 p2 p3 p4)(setq p1 '(8264.21 5538.94 1234.0))
(setq p2 '(9078.63 6280.15 1234.0))
(setq p3 '(8214.21 5452.33 1234.0))
(setq p4 '(8059.62 5297.75 1234.0))
(command ".stretch" "c" p1 p2 "" p3 p4)
(command "_rectang" p1 p2)
(command "PDMODE" 3 "_point" p3)
(command "PDMODE" 3 "_point" p4)
)
是不是下面原因:
1.你那个拉伸没有选到对象
2.你那个红线看起来是一个直线，实际是个3维的实体，而STRETCH 不修改三维实体、多段线宽度、切向或者曲线拟合的信息
本帖最后由 bssurvey 于 2018-1-11 16:08 编辑
(defun c:tt ( / p1 p2 p3 p4)
(setq p1 '(8264.21 5538.94 1234.0))
(setq p2 '(9078.63 6280.15 1234.0))
(setq p3 '(8214.21 5452.33 1234.0))
(setq p4 '(8059.62 5297.75 1234.0))
(command "_rectang" p1 p2)
(command ".stretch" "c" p1 p2 "" p3 p4)
(command "PDMODE" 3 "_point" p3)
(command "PDMODE" 3 "_point" p4)
) ntwison 发表于 2018-1-11 14:22
是不是下面原因:
1.你那个拉伸没有选到对象
2.你那个红线看起来是一个直线，实际是个3维的实体，而STRETC ...
多谢帮忙！(command ".stretch" "c")就是选对象了，红色的多段线 bssurvey 发表于 2018-1-11 16:01
(defun c:tt ( / p1 p2 p3 p4)
(setq p1 '(8264.21 5538.94 1234.0))
(setq p2...
多谢帮忙！
(command "_rectang" p1 p2)
(command "PDMODE" 3 "_point" p3)
(command "PDMODE" 3 "_point" p4)
这只是为了调试辅助的，真正目的是：(command ".stretch" "c" p1 p2 "" p3 p4)，但实现不了，不知道啥原因 本帖最后由 bssurvey 于 2018-1-15 15:01 编辑
剛查詢了一下您紅色的聚合線有不一樣的高程，因為您的拉伸是以2D平面的方式，所以造成無法拉伸的結果，以下是查詢的結果
X= 0.7071Y=-0.7071Z= 0.0000
面積 1700000.0000
長度 3436.0680
在點X=9769.8434Y=7007.9691Z=-1000.0000
在點X=9416.2900Y=6654.4157Z= 0.0000
在點X=8567.7618Y=5805.8875Z= 0.0000
在點X=8214.2085Y=5452.3341Z=-1000.0000 bssurvey 发表于 2018-1-15 14:56
剛查詢了一下您紅色的聚合線有不一樣的高程，因為您的拉伸是以2D平面的方式，所以造成無法拉伸的結果，以下 ...
非常感谢！请问有其他办法能达到拉伸的效果吗？ ...达到拉伸的效果吗...
可能有应该有
但问题是
您的程序不能执行
是以也不知道执行后该是什么样子
... 学习学习学习再说
页:
[1]