autolisp语言编辑
autolisp语言编辑将一条直线均分成指定的段数，并在每个均分点上，画一条垂直于此线条的垂线，长800。。...
autolisp语言编辑将一条直线均分成指定的段数，并在每个均分点上，画一条垂直于此线条的垂线，长800。。
展开
展开全部
(defun c:tes ( / ang k1 l n n1 n2 obj p1 p2);等分直线并绘制800长度的垂直直线
(vl-load-com)
(initget 6)
(if (and
(setq n (getint "\n请输入等分数值"))
(setq k1 (entsel "\n请选择直线"))
(setq k1 (car k1))
(= (cdr (assoc 0 (entget k1))) "LINE")
(setq obj (vlax-ename->vla-object k1))
(setq ang (+ (* pi 0.5) (vla-get-angle obj)))
)
(progn
(setq L (vlax-curve-getEndParam obj) n1 1.0)
(repeat (- n 1)
(setq n2 (/ (* L n1) n))
(setq p1 (vlax-curve-getPointAtDist obj n2))
(setq p2 (polar p1 ang 400) p1 (polar p1 ang -400))
(entmake (list '(0 . "LINE") '(62 . 1) (cons 10 p1) (cons 11 p2)))
(setq n1 (1+ n1))
)
)
)
(princ)
)
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
杭州一知智能科技有限公司
2022-03-17 广告
电话机器人主要就是用来模拟人工通话的一组程序，一般由，CRM系统，语义识别，转换文字，话术体系，这是软的部分，再加上底层软交换和通信模块一起，合并起来就是一套完整的电话机器人系统。电话机器人可以代替真人进行电话工作的，像是电话营销、售后回访...
点击进入详情页
本回答由杭州一知智能科技有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
