怎么直接计算出一根线的4分之1并且直接生成4分之1的线呢

277283904

怎么直接计算出一根线的4分之1并且直接生成4分之1的线呢

xyp1964

4分之1线长

qazxswk

生成，在哪生成？是原地生成，还是在指定点生成？原地生成，把原来的线缩放1/4倍就可以了。

qazxswk

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))

你有种再说一遍

定比分点...啊,简单的数学作业...如果你延伸为曲线,那还得采样...

vormittag

怎么会有这种问题问出来呢？这个问题实现的难度在哪里呢？

277283904

vormittag 发表于 2024-1-10 20:45
怎么会有这种问题问出来呢？这个问题实现的难度在哪里呢？

想快的话每次都要打开计算机计算出来
图中的尺寸口算还可以算出来，但其它复杂的尺寸数字就要打开计算机才能快速算出来

ljpnb

(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?或者带基点复制？

lht

divide定数等分啊

277283904

ljpnb 发表于 2024-1-10 22:13
(defun c:test ()
  (setq obj (vlax-Ename->Vla-Object (car (entsel "\n选择一条线:"))))
  (setq len  ...

没反应呢
选择一条线后不会得出这条线的4分之1的线

d1742647821

学学吧，做梦代码不会自己跑出来，你这个问题新手就能搞定