怎么直接计算出一根线的4分之1并且直接生成4分之1的线呢
本帖最后由 277283904 于 2024-1-10 20:31 编辑怎么直接计算出一根线的4分之1并且直接生成4分之1的线呢
4分之1线长
生成，在哪生成？是原地生成，还是在指定点生成？原地生成，把原来的线缩放1/4倍就可以了。 本帖最后由 qazxswk 于 2024-1-11 18:10 编辑
277283904 发表于 2024-1-11 10:12
没反应呢
选择一条线后不会得出这条线的4分之1的线
ljpnb网友的代码是，选择一条直线后，在旁边点一下，再生成一条1/4的线
我这里有个代码，是把选择的线，原地直接缩放1/4。
(defun c:11(/ ent obj pt)
(setq ent (entsel "\n选择一条线:"))
(setq obj (vlax-ename->vla-object (car ent)))
(setq pt (osnap (cadr ent) "nea"))
(vla-scaleentity obj (vlax-3d-point pt) 0.25)
(princ))
另外，还有一个方法，在选择的直线上，直接生成一个红色的1/4的线
(defun c:22(/ ent obj len pt1 pt2)
(setq ent (entsel "\n选择一条线:"))
(setq obj (vlax-ename->vla-object (car ent)))
(setq len (/ (vla-get-length obj) 4))
(setq pt1 (osnap (cadr ent) "nea"))
(setq pt2 (polar pt1 0 len))
(entmake (list '(0 . "LINE")'(62 . 1) (cons 10 pt1) (cons 11 pt2)))
(princ))
本帖最后由 你有种再说一遍 于 2024-1-10 21:47 编辑
定比分点...啊,简单的数学作业...如果你延伸为曲线,那还得采样...
怎么会有这种问题问出来呢？这个问题实现的难度在哪里呢？ 本帖最后由 277283904 于 2024-1-10 20:55 编辑
vormittag 发表于 2024-1-10 20:45
怎么会有这种问题问出来呢？这个问题实现的难度在哪里呢？
想快的话每次都要打开计算机计算出来;P
图中的尺寸口算还可以算出来，但其它复杂的尺寸数字就要打开计算机才能快速算出来
(defun c:test ()
(setq obj (vlax-Ename->Vla-Object (car (entsel "\n选择一条线:"))))
(setq len (vla-get-length obj))
(setq len-4 (/ len 4.0))
(setq pt1 (getpoint "\n选择一个插入点:"))
(setq pt2 (polar pt1 0 len-4))
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
(princ)
)
SC?或者带基点复制？ divide定数等分啊 本帖最后由 277283904 于 2024-1-11 13:41 编辑
ljpnb 发表于 2024-1-10 22:13
(defun c:test ()
(setq obj (vlax-Ename->Vla-Object (car (entsel "\n选择一条线:"))))
(setq len...
没反应呢{:1_1:}
选择一条线后不会得出这条线的4分之1的线
学学吧，做梦代码不会自己跑出来，你这个问题新手就能搞定
页:
[1]
2