{"id":4585,"date":"2020-02-28T19:23:56","date_gmt":"2020-02-28T11:23:56","guid":{"rendered":"https:\/\/www.highflybird.com\/blog\/?p=4585"},"modified":"2021-01-18T11:15:59","modified_gmt":"2021-01-18T03:15:59","slug":"%e6%9b%b2%e7%ba%bf%e7%9a%84%e8%bd%ac%e5%bc%af%e5%8d%8a%e5%be%84%e5%92%8c%e6%9b%b2%e7%8e%87","status":"publish","type":"post","link":"https:\/\/www.highflybird.com\/blog\/?p=4585","title":{"rendered":"\u66f2\u7ebf\u7684\u8f6c\u5f2f\u534a\u5f84\u548c\u66f2\u7387"},"content":{"rendered":"

\u5728\u4e0b\u9762\u7684\u8fd9\u4e2a\u5e16\u5b50\u4e2d\u8ba8\u8bba\u4e86\u692d\u5706\u7684\u66f2\u7387\u548c\u8f6c\u5f2f\u534a\u5f84
http:\/\/bbs.mjtd.com\/thread-62980-1-1.html
\u73b0\u5728\u6211\u628a\u8fd9\u4e2a\u4e3b\u9898\u6df1\u5316\u4e00\u4e0b\uff0c\u8ba8\u8bba\u4e00\u4e0b\u66f2\u7ebf\u7684\u4e24\u4e2a\u51fd\u6570:
vlax-curve-getSecondDeriv
vlax-curve-getFirstDeriv
\u8fd9\u4e24\u4e2a\u51fd\u6570\u662f\u4ec0\u4e48\u610f\u601d\u5462\uff1f
\u6211\u4eec\u8003\u5bdfAutoCAD\u91cc\u9762\u7684\u66f2\u7ebf\u7c7b\uff0c\u4e3b\u8981\u662f\u5706\uff0c\u692d\u5706\uff0c\u5f27\u548c\u6837\u6761\u66f2\u7ebf\uff0c\u591a\u6bb5\u7ebf\u7531\u8fd9\u51e0\u79cd\u7ec4\u5408\u800c\u6210\u3002
\u692d\u5706\u548c\u6837\u6761\u66f2\u7ebf\u5b9e\u9645\u4e0a\u90fd\u662f\u7531\u53c2\u6570\u5f62\u6210\uff0c\u56e0\u6b64\uff0c\u5bf9\u4e8e\u8fd9\u7c7b\u66f2\u7ebf\uff0c\u5b83\u4eec\u6bcf\u70b9\u7684\u5750\u6807\u53ef\u4ee5\u7531\u53c2\u6570\u65b9\u7a0b\u8868\u8fbe\uff1a
\u8b6c\u5982\u692d\u5706 x=a*cos(t); y=b*sin(t);
\u6837\u6761\u66f2\u7ebf\u4e5f\u6709\u65b9\u7a0b\uff0c\u5047\u8bbe\u6837\u6761\u66f2\u7ebf\u7684\u53c2\u6570\u65b9\u7a0b\u4e3a\uff1a X= f(t);
Y=g(t);
\u56e0\u6b64\u53ef\u4ee5\u5bf9\u53c2\u6570\u65b9\u7a0b\u6c42\u5bfc\uff0c\u5f97\u5230\u6bcf\u4e00\u70b9\u7684\u5207\u7ebf\u77e2\u91cf\uff0c\u66f2\u7ebf\u4e0a\u6bcf\u4e00\u70b9\u5bf9\u5e94\u4e8e\u4e00\u4e2a\u53c2\u6570 t0 ,
\u8fd9\u4e2a\u5207\u7ebf\u77e2\u91cf\u7684 \u7684X\u503c\u5c31\u662f f(t)\u5728t0\u5904\u7684\u4e00\u9636\u5bfc\u6570\uff0cY\u503c\u5c31\u662fg(t)\u5728t0\u5904\u7684\u4e00\u9636\u5bfc\u6570\uff0c
\u5373( f'(t0), g'(t0),0)
\u56e0\u800c\u6211\u4eec\u5c31\u7406\u89e3\u4e86vlax-curve-getFirstDeriv \u51fd\u6570\u8fd4\u56de\u503c\u7684\u610f\u4e49\uff0c
\u5bf9\u4e8evlax-curve-getSecondDeriv\u7684\u610f\u4e49\u7c7b\u4f3c\uff0c\u53ea\u4e0d\u8fc7\u8fd9\u6b21\u6362\u6210\u4e86\u4e8c\u9636\u5bfc\u6570\u3002
\u5373( f”(t0), g”(t0),0)<\/p>\n

\u90a3\u4e48\u5982\u4f55\u6c42\u6837\u6761\u66f2\u7ebf\u6216\u8005\u692d\u5706\u7684\u6bcf\u4e00\u70b9\u7684\u66f2\u7387\u53ca\u5176\u534a\u5f84\u5462\uff1f
\n\u6839\u636e\u53c2\u6570\u65b9\u7a0b\u7684\u6c42\u66f2\u7387\u516c\u5f0f\uff0c\u82e5\u66f2\u7ebf\u7531\u4e0b\u9762\u53c2\u6570\u65b9\u7a0b\u7ed9\u51fa:
\n\\[\\left\\{\\begin{array}{l}x=\\varphi(t) \\\\ y=\\psi(t) \\end{array}\\right.\\]
\n\u90a3\u4e48\u66f2\u7387\u5982\u4f55\u8ba1\u7b97?\u63d0\u793a:
\n\\[K=\\frac{\\left|\\varphi^{\\prime}(t) \\psi^{\\prime \\prime}(t)-\\varphi^{\\prime \\prime}(t) \\psi^{\\prime}(t)\\right|}{\\left[\\varphi^{\\prime 2}(t)+\\psi^{\\prime 2}(t)\\right]^{3 \/ 2}}\\]
\n\u4e0b\u9762\u662f\u6c42\u503c\u4ee3\u7801\uff1a
\n[codesyntax lang=”lisp”]<\/p>\n

;;;=============================================================
\n;;;\u529f\u80fd: \u83b7\u53d6\u692d\u5706\u4e0a\u4e00\u70b9\u5904\u7684\u66f2\u7387\u548c\u79bb\u5fc3\u534a\u5f84\uff08\u9002\u7528\u4e8e\u5355\u6b21\u5229\u7528\u6b64\u6cd5\uff09
\n;;;\u53c2\u6570: \u692d\u5706\u5b9e\u4f53\u548c\u692d\u5706\u4e0a\u7684\u4e00\u70b9
\n;;;\u8fd4\u56de: \u6b64\u5904\u79bb\u5fc3\u5706\u5706\u5fc3\u3001\u79bb\u5fc3\u534a\u5f84\u53ca\u5176\u66f2\u7387\uff08\u79bb\u5fc3\u7387\uff09
\n;;;\u8bf4\u660e: \u5982\u679c\u8981\u5728CAD\u4e2d\u51e0\u4f55\u4f5c\u56fe\uff0c\u53ef\u4ee5\u53c2\u8003\u6b64\u8d34\uff1a
\n;;; http:\/\/bbs.mjtd.com\/thread-62980-1-1.html
\n;;;=============================================================
\n(defun ELL:GetCurvature (en pt \/ obj a b px x y v1 v2 rad cen)
\n (setq obj (vlax-ename->vla-object en))
\n (setq a (vla-get-MajorRadius obj)) ;\u692d\u5706\u7684\u534a\u957f\u8f74
\n (setq b (vla-get-MinorRadius obj))\t\t\t\t;\u692d\u5706\u7684\u534a\u77ed\u8f74
\n (setq pt (vlax-curve-getclosestpointto en pt))\t\t;\u4fdd\u8bc1\u6b64\u70b9\u5728\u692d\u5706\u4e0a
\n (setq px (vlax-curve-getParamAtPoint en pt))\t\t\t;\u6b64\u70b9\u7684\u692d\u5706\u53c2\u6570
\n (setq v1 (vlax-curve-getFirstDeriv en px))\t\t\t;\u6b64\u70b9\u7684\u4e00\u9636\u77e2\u91cf
\n (setq v2 (list (- (cadr v1)) (car v1) (caddr v1)))\t\t;\u6b64\u70b9\u7684\u5207\u7ebf\u77e2\u91cf
\n (setq x (* a (sin px)))
\n (setq y (* b (cos px)))
\n (setq rad (\/ (expt (+ (* x x) (* y y)) 1.5) (* a b)))\t\t;\u5f97\u5230\u8f6c\u5f2f\u534a\u5f84
\n (setq cen (polar pt (angle ‘(0 0 0) v2) rad))\t\t\t;\u5706\u5fc3
\n (list cen rad)\t\t\t\t\t\t;\u5706\u5fc3\u53ca\u534a\u5f84
\n)<\/p>\n

;;;=============================================================
\n;;; \u5229\u7528\u53c2\u6570\u65b9\u7a0b\u7684\u6c42\u692d\u5706\u7684\u66f2\u7387\u53ca\u5176\u79bb\u5fc3\u534a\u5f84\uff08\u9002\u7528\u4e8e\u591a\u6b21\u5229\u7528\u6b64\u6cd5\uff09
\n;;; \u529f\u80fd: \u83b7\u53d6\u692d\u5706\u4e0a\u4e00\u70b9\u5904\u7684\u8f6c\u5f2f\u534a\u5f84\u548c\u79bb\u5fc3\u5706\u5706\u5fc3
\n;;; \u53c2\u6570: \u692d\u5706\u5b9e\u4f53\u548c\u66f2\u7ebf\u4e0a\u7684\u4e00\u70b9
\n;;; \u8fd4\u56de: \u6b64\u5904\u79bb\u5fc3\u5706\u5706\u5fc3\u3001\u79bb\u5fc3\u534a\u5f84
\n;;;=============================================================
\n(defun ELL:GetCurvature1 (en a b pt \/ px v1 v2 x y rad cen)
\n (setq pt (vlax-curve-getclosestpointto en pt))\t\t;\u4fdd\u8bc1\u6b64\u70b9\u5728\u692d\u5706\u4e0a
\n (setq px (vlax-curve-getParamAtPoint en pt))\t\t\t;\u6b64\u70b9\u7684\u692d\u5706\u53c2\u6570
\n (setq v1 (vlax-curve-getFirstDeriv en px))\t\t\t;\u6b64\u70b9\u7684\u4e00\u9636\u77e2\u91cf
\n (setq v2 (list (- (cadr v1)) (car v1) (caddr v1)))\t\t;\u6b64\u70b9\u7684\u5207\u7ebf\u77e2\u91cf
\n (setq x (* a (sin px)))
\n (setq y (* b (cos px)))
\n (setq rad (\/ (expt (+ (* x x) (* y y)) 1.5) (* a b)))\t\t;\u5f97\u5230\u8f6c\u5f2f\u534a\u5f84
\n (setq cen (polar pt (angle ‘(0 0 0) v2) rad))\t\t\t;\u5706\u5fc3
\n (list cen rad)\t\t\t\t\t\t;\u5706\u5fc3\u53ca\u534a\u5f84
\n)<\/p>\n

;;;=============================================================
\n;;; \u4e00\u822c\u5e73\u9762\u66f2\u7ebf\u53c2\u6570\u65b9\u7a0b\u7684\u66f2\u7387\u79bb\u5fc3\u516c\u5f0f
\n;;; \u529f\u80fd: \u83b7\u53d6\u66f2\u7ebf\u4e0a\u4e00\u70b9\u5904\u7684\u79bb\u5fc3\u534a\u5f84\u548c\u79bb\u5fc3\u5706\u5706\u5fc3
\n;;; \u53c2\u6570: \u66f2\u7ebf\u5b9e\u4f53\u548c\u66f2\u7ebf\u4e0a\u7684\u4e00\u70b9
\n;;; \u8fd4\u56de: \u6b64\u5904\u79bb\u5fc3\u5706\u5706\u5fc3\u3001\u79bb\u5fc3\u534a\u5f84
\n;;;=============================================================
\n(defun CUR:GetCurvature (en pt \/ ob px v1 v2 v3 x1 y1 x2 y2 cen rad d1 d2)
\n (setq ob (vlax-ename->vla-object en))
\n (setq pt (vlax-curve-getclosestpointto en pt)) ;\u4fdd\u8bc1\u6b64\u70b9\u5728\u66f2\u7ebf\u4e0a
\n (setq px (vlax-curve-getParamAtPoint en pt)) ;\u6b64\u70b9\u7684\u66f2\u7ebf\u53c2\u6570
\n (setq v1 (vlax-curve-getFirstDeriv en px)) ;\u6b64\u70b9\u7684\u4e00\u9636\u77e2\u91cf
\n (setq v2 (vlax-curve-getSecondDeriv en px))\t\t\t;\u6b64\u70b9\u7684\u4e8c\u9636\u77e2\u91cf
\n (setq v3 (list (- (cadr v1)) (car v1) (caddr v1))) ;\u6b64\u70b9\u7684\u5207\u7ebf\u77e2\u91cf
\n (setq x1 (car v1)) ;\u4e00\u9636\u5bfc\u6570\u7684 X\u503c
\n (setq y1 (cadr v1))\t\t\t\t\t\t;\u4e00\u9636\u5bfc\u6570\u7684 Y\u503c
\n (setq x2 (car v2))\t\t\t\t\t\t;\u4e8c\u9636\u5bfc\u6570\u7684 X\u503c
\n (setq y2 (cadr v2))\t\t\t\t\t\t;\u4e8c\u9636\u5bfc\u6570\u7684 Y\u503c
\n (setq d1 (expt (+ (* y1 y1) (* x1 x1)) 1.5))
\n (setq d2 (- (* x1 y2) (* x2 y1)))\t\t\t\t;\u8f6c\u5f2f\u5185\u5916\u7684\u5224\u5b9a
\n (if (\/= d2 0) ;\u5982\u679c\u4e0d\u4e3a\u76f4\u7ebf\u6bb5
\n (progn
\n (setq rad (\/ d1 d2))
\n (if (vlax-method-applicable-p ob ‘GetBulge) ;\u5982\u679c\u4e3a\u591a\u6bb5\u7ebf(\u542b\u5706\u5f27)
\n\t(if (< (vla-GetBulge ob (fix px)) 0)\t\t\t;\u5982\u679c\u6b64\u6bb5\u51f8\u5ea6\u5c0f\u4e8e0
\n\t (setq rad (- rad))
\n )
\n )
\n (list (polar pt (angle ‘(0 0 0) v3) rad) (abs rad))\t;\u5706\u5fc3\u53ca\u534a\u5f84
\n )
\n )
\n)<\/p>\n

[\/codesyntax]<\/p>\n

\u4e00\u4e9b\u6d4b\u8bd5\u4ee3\u7801\uff1a
\n[codesyntax lang=”lisp”]<\/p>\n

;;;=============================================================
\n;;;\u6d4b\u8bd5\u7a0b\u5e8f1: \u83b7\u53d6\u66f2\u7ebf\u4e00\u70b9\u5904\u7684\u66f2\u7387\u548c\u79bb\u5fc3\u534a\u5f84
\n;;;=============================================================
\n(defun c:tt1 (\/ ent pnt ret)
\n (setq ent (car (entsel “\\n\u8bf7\u9009\u53d6\u66f2\u7ebf:”)))
\n (while (setq pnt (getpoint “\\n\u70b9\u53d6\u4e00\u70b9”))
\n (setq pnt (trans pnt 1 0))
\n (setq pnt (vlax-curve-getclosestpointto ent pnt))
\n (setq ret (CUR:GetCurvature ent pnt))
\n (princ “\\n\u79bb\u5fc3\u534a\u5f84\u662f:”)
\n (princ ret)
\n (and ret (apply ‘Ent:Make_Circle ret))
\n )
\n (princ)
\n)<\/p>\n

;;;=============================================================
\n;;;\u6d4b\u8bd5\u7a0b\u5e8f2: \u83b7\u53d6\u692d\u5706\u4e00\u70b9\u5904\u7684\u66f2\u7387\u548c\u79bb\u5fc3\u534a\u5f84\uff0c\u5e76\u6bd4\u8f83\u4e24\u79cd\u65b9\u6cd5
\n;;;=============================================================
\n(defun c:tt2 ( \/ ent obj a b pnt par 1st 2st r1 r2 r3)
\n (if (and (setq ent (car (entsel “\\n\u8bf7\u9009\u53d6\u692d\u5706:”)))
\n\t (setq obj (vlax-ename->vla-object ent))
\n\t (vlax-property-available-p obj ‘MajorRadius)\t\t;\u8fd9\u4e2a\u5730\u65b9\u5e94\u8be5\u52a0\u51fa\u9519\u5904\u7406
\n \t (setq a (vla-get-MajorRadius obj))
\n\t (setq b (vla-get-MinorRadius obj))
\n )
\n (while (setq pnt (getpoint “\\n\u70b9\u53d6\u4e00\u70b9:”))
\n (setq pnt (trans pnt 1 0))
\n (setq pnt (vlax-curve-getclosestpointto ent pnt))
\n (setq par (vlax-curve-getparamatpoint ent pnt))
\n (setq 1st (vlax-curve-getFirstDeriv ent par))
\n (setq 2st (vlax-curve-getSecondDeriv ent par))
\n (setq r1 (distance ‘(0 0) 2st)) ;\u8fd9\u4e2asecondDeriv\u5e76\u4e0d\u610f\u5473\u7740\u534a\u5f84
\n (setq r2 (cadr (ELL:GetCurvature1 ent a b pnt)))
\n (setq r3 (cadr (CUR:getcurvature ent pnt)))
\n (princ “\\nRadius 1 is:”)
\n (princ r1)
\n (princ “\\nRadius 2 is:”)
\n (princ r2)
\n (princ “\\nRadius 3 is:”)
\n (princ r3)
\n (UTI:Bench
\n 10000
\n (list
\n\t (list ‘ELL:GetCurvature1 ent a b pnt)
\n\t (list ‘CUR:getcurvature ent pnt)
\n )
\n )
\n )
\n )
\n)<\/p>\n

;;;=============================================================
\n;;;\u6d4b\u8bd5\u7a0b\u5e8f3: \u52a8\u6001\u6f14\u793a\u66f2\u7ebf\u7684\u79bb\u5fc3\u534a\u5f84
\n;;;=============================================================
\n(defun c:tt3 (\/ CIR ENT LIN PNT PT0 RET 1ST 2ST CEN PAR PT2 VEC)
\n (setq ent (car (entsel “\\n\u8bf7\u9009\u53d6\u66f2\u7ebf:”)))
\n (setq cir (Ent:Make_Circle ‘(0 0 0) 1))
\n (setq lin (ent:make_Line ‘(0 0 0) ‘(0 0 0)))
\n (setq vec (ent:make_Line ‘(0 0 0) ‘(0 0 0)))
\n (setq lin (vlax-ename->vla-object lin))
\n (setq vec (vlax-ename->vla-object vec))
\n (setq cir (vlax-ename->vla-object cir))
\n (vla-put-color lin 1)
\n (vla-put-color cir 3)
\n (vla-put-color vec 6)
\n (princ “\\n\u6309\u7a7a\u683c\u6216\u8005\u56de\u8f66\u9000\u51fa!”)
\n (while (= (car (setq pt0 (grread 5 0))) 5)
\n (setq pnt (trans (cadr pt0) 1 0))
\n (setq pnt (vlax-curve-getclosestpointto ent pnt))
\n (setq par (vlax-curve-getparamatpoint ent pnt))
\n (setq 1st (vlax-curve-getFirstDeriv ent par))
\n (setq 2st (vlax-curve-getSecondDeriv ent par))
\n (if (setq ret (CUR:GetCurvature ent pnt))
\n (progn
\n\t(setq pt2 (mapcar ‘+ pnt 2st))
\n\t(setq cen (car ret))
\n (vlax-put Cir ‘Center cen )
\n (vlax-put cir ‘Radius (cadr ret))
\n (vlax-put lin ‘StartPoint cen)
\n (vlax-put lin ‘EndPoint pnt)
\n\t(vlax-put vec ‘StartPoint pt2)
\n (vlax-put vec ‘EndPoint pnt)
\n )
\n )
\n )
\n (vla-erase cir)
\n (vla-erase lin)
\n (vla-erase vec)
\n (princ)
\n)<\/p>\n

;;;=============================================================
\n;;;\u6d4b\u8bd5\u7a0b\u5e8f4: \u7531\u66f2\u7ebf\u7684\u79bb\u5fc3\u534a\u5f84\u63cf\u7ed8\u5176\u8f68\u8ff9
\n;;;=============================================================
\n(defun c:tt4 (\/ ent lst par px1 px2 pxn pnt Inf cen)
\n (if (setq ent (car (entsel “\\n\u8bf7\u9009\u53d6\u66f2\u7ebf:”)))
\n (progn
\n (setq px1 (vlax-curve-getStartParam ent))
\n (setq px2 (vlax-curve-getendparam ent))
\n (setq pxn (* (- px2 px1) 0.02))
\n (setq par px1)
\n (while (<= par px2)
\n (setq pnt (vlax-curve-getpointatparam ent par))
\n (setq Inf (CUR:GetCurvature ent pnt))
\n (if (setq cen (car Inf))
\n\t (setq lst (cons cen lst))
\n\t)
\n (setq par (+ par pxn))
\n )
\n (setq lst (reverse lst))
\n (Ent:Make_LWPoly lst 1)
\n )
\n )
\n)<\/p>\n

[\/codesyntax]<\/p>\n

\u76f8\u5173\u8054\u4ee3\u7801\uff1a
\n[codesyntax lang=”lisp”]<\/p>\n

;;;************************************************************;
\n;;;\u5b9e\u4f53\u521b\u5efa\u90e8\u5206
\n;;;************************************************************;<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u4e00\u4e2a\u70b9
\n;;;\u8f93\u5165: \u4e00\u4e2a\u4e09\u7ef4\u6216\u8005\u4e8c\u7ef4\u7684\u70b9
\n;;;\u8f93\u51fa: \u70b9\u5b9e\u4f53\u7684\u56fe\u5143\u540d
\n;;;————————————————————-
\n(defun Ent:Make_Point (p)
\n (entmakex (list ‘(0 . “POINT”) (cons 10 p)))
\n)<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u4e00\u4e2a\u5e26\u989c\u8272\u7684\u70b9\uff08\u6b64\u51fd\u6570\u4e3a\u6d4b\u8bd5\u6216\u8005\u5176\u4ed6\u7528\u9014\uff09
\n;;;\u8f93\u5165: \u4e00\u4e2a\u4e09\u7ef4\u6216\u8005\u4e8c\u7ef4\u7684\u70b9\u8868\u548c\u4e00\u4e2a\u989c\u8272\u53f7
\n;;;\u8f93\u51fa: \u70b9\u5b9e\u4f53\u7684\u56fe\u5143\u540d
\n;;;————————————————————-
\n(defun Ent:MakePoint-1 (p c)
\n (entmakex (list ‘(0 . “POINT”) (cons 10 p) (cons 62 c)))
\n)<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u4e00\u6761\u76f4\u7ebf\u6bb5
\n;;;\u8f93\u5165: \u4e24\u4e2a\u4e09\u7ef4\u6216\u8005\u4e8c\u7ef4\u7684\u70b9
\n;;;\u8f93\u51fa: \u7ebf\u6bb5\u5b9e\u4f53\u7684\u56fe\u5143\u540d
\n;;;————————————————————-
\n(defun Ent:Make_Line (p q)
\n (entmakeX (list ‘(0 . “LINE”) (cons 10 p) (cons 11 q)))
\n)<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u4e00\u4e2a\u7531\u4e09\u6761\u76f4\u7ebf\u7ec4\u6210\u7684\u4e09\u89d2\u5f62
\n;;;\u8f93\u5165: \u4e09\u4e2a\u4e09\u7ef4\u6216\u8005\u4e8c\u7ef4\u7684\u70b9
\n;;;\u8f93\u51fa: \u7531\u4e09\u6761\u76f4\u7ebf\u7ec4\u6210\u7684\u4e09\u89d2\u5f62
\n;;;————————————————————-
\n(defun Ent:Make_Triangle (p1 p2 p3)
\n (mapcar ‘Ent:Make_Line (list p1 p2 p3) (list p2 p3 p1))
\n)<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u4e00\u4e2a\u4e09\u7ef4\u591a\u6bb5\u7ebf
\n;;;\u8f93\u5165: \u4e09\u7ef4\u7684\u70b9\u96c6
\n;;;\u8f93\u51fa: \u4e09\u7ef4\u591a\u6bb5\u7ebf\u5b9e\u4f53
\n;;;————————————————————-
\n(defun Ent:Make_Poly (pts Closed \/ e)
\n (if Closed
\n (setq e (Entmake (list ‘(0 . “POLYLINE”) ‘(70 . 9))))
\n (setq e (Entmake (list ‘(0 . “POLYLINE”) ‘(70 . 8))))
\n )
\n (foreach p pts
\n (entmake (list ‘(0 . “VERTEX”) ‘(70 . 32) (cons 10 p)))
\n )
\n (entmake ‘((0 . “SEQEND”)))
\n (entlast)
\n)<\/p>\n

;;;————————————————————-
\n;;;\u521b\u5efa\u8f7b\u591a\u6bb5\u7ebf
\n;;;\u8f93\u5165: \u4e8c\u7ef4\u7684\u70b9\u96c6
\n;;;\u8f93\u51fa: \u8f7b\u591a\u6bb5\u7ebf\u5b9e\u4f53\u540d
\n;;;————————————————————-
\n(defun Ent:Make_LWPoly (pts closed \/)
\n (entmakeX
\n (append
\n ‘((0 . “LWPOLYLINE”)
\n (100 . “AcDbEntity”)
\n (100 . “AcDbPolyline”)
\n )
\n (list (cons 90 (length pts))) \t;\u9876\u70b9\u4e2a\u6570
\n (mapcar (function (lambda (x) (cons 10 x))) pts) \t;\u591a\u6bb5\u7ebf\u9876\u70b9
\n (list (cons 70 closed)) \t ;\u95ed\u5408\u7684
\n )
\n )
\n)<\/p>\n

;;;————————————————————-
\n;;; \u521b\u5efa\u5706\u5b9e\u4f53
\n;;; \u8f93\u5165: \u5706\u5fc3C\u548c\u534a\u5f84R
\n;;; \u8f93\u51fa: \u5706\u7684\u5b9e\u4f53\u540d
\n;;;————————————————————-
\n(defun Ent:Make_Circle (C R)
\n (entmakex (list ‘(0 . “CIRCLE”) (cons 10 C) (cons 40 R)))
\n)<\/p>\n

[\/codesyntax]<\/p>\n\n\n

\u7a0b\u5e8f1\u6548\u679c\u6f14\u793a\uff1a<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u7a0b\u5e8f2\u6548\u679c\u6f14\u793a\uff1a<\/p>\n\n\n\n

\"\"<\/figure>\n","protected":false},"excerpt":{"rendered":"

\u5728\u4e0b\u9762\u7684\u8fd9\u4e2a\u5e16\u5b50\u4e2d\u8ba8\u8bba\u4e86\u692d\u5706\u7684\u66f2\u7387\u548c\u8f6c\u5f2f\u534a\u5f84http:\/\/bbs.mjtd.com\/thread-62980-<\/p>\n

Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[9],"tags":[],"class_list":["post-4585","post","type-post","status-publish","format-standard","hentry","category-programming"],"_links":{"self":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/4585","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4585"}],"version-history":[{"count":0,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/4585\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4585"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4585"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4585"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}