测试LISP语法高亮

highflybird 周日, 01/17/2021 - 22:26 
(defun c:test()
    (vl-load-com)
	(setq ent (car (entsel "\n请选择物体:"))
	(setq dxf (entget ent))
	(setq typ (cdr (assoc 0 dxf)))
	(if (= typ "TEXT")
		(progn 
			(setq obj (vlax-ename->vla-object ent))
			(setq txt (vla-get-textstring obj))
			(setq pt1 (vlax-3D-point '(1 2 0)))
			(setq pt2 (vlax-3D-point '(2 3 0)))
			(setq lne (vla-addline acDoc acSpace pt1 pt2))
			(setq par (vlax-curve-getendparam lne))
			(princ "hello")
		)
	)
)
编程